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ABSTRACT 


This  thesis  describes  the  design  of  a  user-friendly  interactive  satellite 
communications  analysis  program  for  use  on  a  personal  computer.  The  user 
inputs  the  various  parameters  of  a  satellite  orbit,  ground  station  location  and 
communications  equipment.  The  output  generated  allows  a  user  to  view  the 
satellite  ground  trace  and  footprint,  calculate  satellite  rise  and  set  times,  and 
analyze  the  performance  of  the  communications  link.  The  link  analysis  allows  the 
user  to  input  various  signal  losses  and  jamming  interference.  Care  was  taken  to 
ensure  that  the  program  is  simple  to  operate  and  that  it  provides  on-line  help  for 
each  segment.  A  principle  goal  of  this  thesis  effort  is  to  provide  an  educational 
tool  that  familiarizes  the  user  with  the  communications  segment  of  a  space  system. 
The  initial  success  of  the  program  based  upon  student  response  validates  the  use 
of  object-oriented  like  software  tools  that  enhance  user  understanding  of 
complex  subjects. 
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1.  INTRODUCTION 


The  role  of  space  in  the  Navy  took  an  important  upturn  on  1  August,  1990 
when  the  Space  and  Electronic  Warfare  (SEW)  Directorate,  OP-094,  was 
established  as  a  directorate  equal  in  status  to  the  air,  surface  and  undersea  warfare 
communities.  The  crisis  in  the  Persian  Gulf  that  culminated  in  Operation  'Desert 
Storm'  further  validated  the  significance  of  space.  Reliance  on  the  Global 
Positioning  System  (GPS)  for  navigation  data  and  satellite  communications  for 
command  and  control  during  'Desert  Storm'  was  evident  to  anyone  who  read  a 
newspaper.  As  the  utilization  of  space  assets  increases  and  the  recognition  of 
their  importance  grows,  the  need  to  educate  the  average  junior  officer  on  the 
various  aspects  of  space  systems  becomes  increasingly  important.  The  goal  of 
this  thesis  is  to  design  an  interactive,  object-oriented  like  program,  that  will 
familiarize  the  user  with  one  portion  of  a  space  system,  the  satellite 
communications  system. 

Many  tools  exist  that  will  aid  in  the  understanding  of  the  complexity  of  a 
space  system.  Textbooks  have  always  provided  an  academic  orientation  toward 
orbital  mechanics  and  communications  engineering.  Software  also  exists  that  can 
provide  a  user  with  an  efficient  method  to  model  the  various  parameters  of  a 
satellite  or  communications  system.  Often,  the  software  and/or  the  systems  on 
which  they  are  designed  to  operate,  are  prohibitively  expensive.  The  complexity 
of  these  tools  may  also  require  additional  training  to  operate  them  effectively.  It 
is  therefore  important  that  the  program  be  designed  to  operate  on  relatively 
inexpensive  equipment  that  requires  minimal  advanced  training  to  operate.  On- 


line  help  should  be  available  to  assist  the  user  in  understanding  program 
operation.  Ideally,  the  program  would  be  machine  independent;  i.e.,  the  specific 
operating  system  of  the  computer  should  not  be  the  limiting  factor  of  the 
program. 

The  program  designed  for  this  thesis  attempts  to  incorporate  the 
requirements  stated  above.  This  program  is  designed  to  take  advantage  of  the 
proliferation  of  personal  computers.  It  assumes  that  the  user  is  familiar  with  the 
basic  operations  of  personal  computers  and  has  access  to  one.  The  chosen 
platform  for  the  design  of  this  program  is  the  Macintosh  personal  computer  and 
the  development  environment  is  HyperCard,  version  2.0  or  later.  HyperCard  and 
Macintosh  are  trademarks  of  Apple  Computer,  Inc.,  Cupertino,  CA.  HyperCard 
was  chosen  because  of  its  ability  to  support  rapid  prototyping  and  because  it 
comes  bundled  with  every  new  Macintosh.  Initially  this  restricts  the  use  of  the 
program  to  the  Macintosh;  however,  software  exists  to  convert  this  program  to  a 
comparable  application  that  operates  under  the  MS-DOS  operating  system. 

This  thesis  outlines  the  development  environment  in  Chapter  II.  The  specific 
challenges  encountered  by  the  author  during  the  design  of  this  program  are 
discussed  in  Chapter  III.  The  program  covers  only  a  small  part  of  a  space  system. 
The  modular  nature  of  the  program  allows  for  a  great  deal  of  growth. 
Recommendations  for  further  study  and  conclusions  are  outlined  in  Chapter  IV. 
This  thesis  does  not  include  the  actual  program  nor  does  it  attempt  to  explain  the 
operation  of  the  program.  A  copy  of  each  card  in  the  stack  is  reproduced  in 
Appendix  A.  The  explanation  of  program  operation  and  the  equations  utilized  by 
the  program  are  part  of  Appendix  A,  pages  62  to  128.  Additionally,  the 
significant  scripts  for  the  program  are  listed  in  Appendix  B  through  F. 


IL  DESIGN  ENVIRONMENT 


A.  HYPERCARD  OVERVIEW 

4  HyperCard  is  an  object-oriented  like  application  that  comes  with  every  new 

Macintosh.  HyperCard  is  made  up  of  five  different  types  of  objects;  stacks, 

n 

backgrounds,  cards,  fields  and  buttons.  Each  object  contains  its  own  specific 
properties  and  can  contain  its  own  code,  referred  to  as  a  script,  that  can  perform 
various  functions  based  upon  the  transmission  of  system  messages  and  the 
object's  properties.  The  language  utilized  by  HyperCard  in  the  scripts  is 
HyperTalk.  HyperTalk  is  different  from  other  languages,  such  as  Basic  or  Pascal, 
in  that  there  is  no  such  thing  as  a  HyperTalk  program  that  controls  the  activities 
of  HyperCard  from  beginning  to  end.  Instead,  it  is  the  objects  and  their 
relationships  to  one  another  that  determine  the  operation  of  the  program.  This 
relationship  is  based  upon  a  concept  of  hierarchy.  [Ref.  1,  pp.  321-322] 

B.  HIERARCHY 

The  concept  of  hierarchy  is  critical  to  understanding  the  operation  of 
HyperCard.  An  illustration  of  this  concept  is  laid  out  in  Figure  1.  At  the  top  of 
the  hierarchy  is  the  HyperCard  application  itself  and  at  the  bottom  lie  the  buttons 
»  and  fields.  As  HyperCard  operates,  a  series  of  system  messages  are  sent  to  the 

objects,  depending  on  the  current  state  of  HyperCard.  For  example,  if  a  user 
opens  a  HyperCard  stack,  an  openStack  message  is  sent  from  the  stack  up  the 
hierarchy  to  HyperCard.  When  the  stack  opens,  the  first  card  in  the  stack  is 
displayed  and  an  openCard  message  is  sent.  When  the  user  clicks  the  mouse,  a 


3 


mouseUp  message  is  sent.  If  the  mouse  click  resides  on  a  visible  button,  the 
message  passes  from  the  button  up  the  hierarchy. 


Scripts  can  be  written  for  each  object  which  will  execute  based  upon  these 
system  messages.  The  scripts  contain  routines,  referred  to  as  handlers,  that  trap 
the  system  message  at  the  desired  object  and  execute  a  routine.  These  message 
handlers  can  contain  additional  handlers  that  will  execute  when  called  upon  by 
name.  These  handlers  must  reside  in  the  object  or  in  the  hierarchy  above  the 
object  calling  the  handler.  A  card,  for  example,  can  call  for  a  handler  that  resides 
in  the  card,  its  background,  or  the  stack,  but  it  may  not  call  for  a  handler  from  a 
different  card  or  from  a  field  or  button. 
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C  OBJECTS 


As  previously  mentioned,  HyperCard  consists  of  five  different  objects: 
stacks,  backgrounds,  cards,  buttons  and  fields.  A  stack  may  contain  several 
backgrounds  and  multiple  cards.  Each  background  may  have  its  own  individual 
fields  and  buttons.  Additionally,  the  background  may  contain  various  drawings 
or  art  work.  Every  card  resides  upon  a  background  and  each  card  can  utilize  the 
buttons,  fields  and  art  of  the  background  in  addition  to  its  own  fields,  buttons  and 
art.  All  of  the  objects  in  HyperCard  can  be  quickly  created  or  deleted  as  needed. 

The  stack  can  be  visualized  as  a  stack  of  3  by  5  note  cards.  The  card  on  the 
top  of  the  stack  is  the  one  that  is  visible  to  the  user.  Through  the  manipulation  of 
buttons  and  fields  that  contain  the  proper  script,  the  user  can  access  the  cards  in 
the  stack  in  the  order  the  stack  designer  desires.  These  navigation  objects  are 
normally  activated  by  the  click  of  the  mouse. 

Every  object  is  identified  by  a  specific  identification  number  (id#)  referenced 
to  where  it  resides;  for  example,  background  button  id  12  refers  to  a  button  that 
resides  on  a  background  whose  id#  is  12.  Each  object  can  also  be  given  a  name. 
This  property  is  very  useful  as  it  allows  the  designer  to  refer  to  objects  by  their 
name.  If  the  object's  name  is  linked  with  the  function  of  the  object,  the  task  of 
keeping  track  of  object  linkages  becomes  greatly  simplified  for  the  designer.  It  is 
also  a  method  of  self  documenting  the  script  so  that  an  individual  other  than  the 
designer  can  easily  trace  the  operation  of  the  script. 

The  ability  to  design  in»o  the  program  a  specific  route  of  navigation 
between  objects  makes  p  HyperCard  stack  modular.  Scripts  can  reside  in  each 
object,  a  capability  that  further  enhances  the  modularity  of  HyperCard  [Ref.  1, 
pp.  321-322).  It  is  this  modularity  that  makes  HyperCard  such  an  attractive 
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application.  A  single  stack  may  contain  several  sections  that  accomplish  a  variety 
of  different  tasks.  Outputs  created  by  one  section  will  remain  alive  in  HyperCard 
as  global  variables  and  can  be  utilized,  as  needed,  by  any  other  section  in  the 
stack.  Additionally,  navigation  between  separate  stacks  is  possible  and  the 
global  variables  created  by  one  stack  may  be  used  by  any  other  stack  as  long  as 
HyperCard  itself  is  active. 

D.  HYPERTALK 

HyperTalk  is  a  high  level  programming  language.  As  a  language  it  has 
structure  and  syntax  that  must  be  adhered  to.  Unlike  other  languages  though,  it 
is  very  liberal  in  its  structure  and  syntax.  For  example,  the  command  "go  next" 
would  cause  HyperCard  to  bring  the  next  card  in  the  stack  to  the  top.  The 
command  "go  to  next  card"  does  the  same  thing.  The  forgiving  nature  of  the 
language  is  the  ideal  environment  for  novice  programmers.  This  statement  should 
not  be  misconstrued,  as  HyperCeird  is  also  an  excellent  environment  for 
prototyping  very  sophisticated  applications  that  require  advanced  programming 
skills. 

The  scripts,  which  will  execute  based  upon  the  transmission  of  system 
messages,  contain  commands  for  the  manipulation  of  objects,  built  in  and  user 
defined  functions,  and  key  words  that  will  execute  user  defined  handlers  when 
called.  The  ability  for  the  user  to  define  special  functions  and  handlers  is  a 
tremendous  asset,  but  care  must  be  exercised  to  follow  the  hierarchy  rules  when 
defining  the  functions  and  handlers. 

For  designers  with  experience  in  advanced  programming,  HyperCard  offers 
unlimited  expandibility  through  the  use  of  exterior  commands  (XCMD)  and 
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exterior  functions  (XFCN).  XCMDs  and  XFCNs  are  separate  programs  written 
and  compiled  in  a  language  such  as  Pascal  and  are  intended  to  add  a  capability 
that  does  not  already  exist.  These  XCMDs  and  XFCNs  can  the  be  attached  as  a 
resource  to  the  stack  for  which  they  are  intended.  They  can  then  be  called  upon 
by  a  script  in  the  same  manner  as  built  in  functions  and  commands.  [Ref.  l,pp. 
750-751] 

The  ability  to  attach  resources  to  HyperCard  allows  for  the  development  of 
multi-media  stacks,  i.e.,  stacks  that  provide  text,  graphics,  audio  and  video 
presentations.  For  example,  software  exists  that  can  record  and  digitalize  audio 
and  convert  it  into  a  resource.  This  thesis  does  not  take  advantage  of  XCMDs, 
XFCNs,  or  audio  and  video  resources  but  they  are  mentioned  here  for  follow  on 
considerations. 

For  access  to  the  scripts  the  designer  must  set  the  property  userLevel  to 
five.  From  here  the  designer  can  open  the  script  windows  for  each  object.  The 
script  windows  display  the  object's  script  under  the  script  editor.  The  script  editor 
allows  a  debugging  capability  that  is  useful  in  tracing  the  operation  of 
complicated  scripts.  The  script  editor  also  automatically  indents  all  control 
structures  (if-then  and  repeat  statements),  a  format  that  can  aid  the  designer  in 
debugging. 

HyperCard  does  not  compile,  but  instead  interprets  the  scripts  as  it  is 
executed.  The  interpreted  script  remains  in  HyperCard's  portion  of  the  random 
access  memory  (RAM)  as  long  as  the  RAM  has  room  for  it.  When  another  script 
is  interpreted,  it  too  is  added  to  the  RAM  and  if  there  is  no  more  room,  previously 
interpreted  scripts  are  deleted  from  the  RAM.  The  designer  is  thus  encouraged  to 
take  advantage  of  the  modular  nature  of  HyperCard  and  write  frequently  called 
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routines  as  separate,  smaller  handlers.  These  smaller  handlers  will  remain  in  the 
RAM  longer,  thus  increasing  the  speed  of  the  program.  Allotting  more  RAM  for 
HyperCard  will  allow  more  scripts  to  remain  interpreted,  increasing  the  program's 
efficiency.  [Ref.  l,pp.  336-337] 
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in.  DESIGN  CHALLENGES 


A.  GENERAL  SCOPE 

As  delineated  in  the  introduction,  the  goal  of  this  thesis  is  to  design  an 
interactive,  object-oriented  like  program,  that  will  allow  the  average  junior  officer 
to  better  understand  the  basics  of  a  satellite  communications  system.  The 
attributes  of  HyperCard,  as  outlined  in  Chapter  II,  meet  the  object-oriented  like 
requirement.  Thus  arises  the  challenge  of  implementing  HyperCard  to  model  a 
satellite  communications  system.  For  the  purpose  of  this  thesis,  the  systems  in 
question  are  communications  with  existing,  stable  satellites  that  reside  in  a  closed 
earth  orbit;  i.e.,  communications  with  interplanetary  probes  were  not  addressed. 

This  chapter  will  not  attempt  to  describe  the  operation  of  the  program  nor 
does  it  outline  the  equations  or  the  algorithms  used  by  the  scripts  during  their 
execution.  A  tutorial  on  the  program  operation  and  equations  used  is  contained 
in  Appendix  A,  pages  62  to  128.  The  significant  scripts  written  for  the  stack  are 
reproduced  in  Appendix  B  through  E. 

The  analysis  of  a  communications  system  can  be  broken  into  three  primary 
parts.  The  first  part  requires  knowledge  of  the  orbital  elements  of  the  satellite  in 
question.  The  second  requires  information  on  the  ground  station's  location  and 
existing  climate.  The  third  section  requires  knowledge  of  the  basic  parameters 
associated  with  the  communications  equipment.  It  is  important  that  the  user  be 
able  to  visualize  how  these  three  parts  relate  to  one  another.  Three  outputs  were 
developed,  based  upon  user  inputs,  that  allow  the  user  to  visualize  the 
relationships  of  these  parts.  The  first  output  allows  the  user  to  see  a  ground  trace 
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of  the  satellite  as  it  orbits  the  earth.  The  second  output  allows  the  user  to 
determine  when  the  satellite  comes  into  view  of  the  ground  station  and  the  third 
output  allows  the  user  to  analyze  the  performance  of  the  communications 
equipment.  At  each  stage  in  the  operation  the  user  is  invited  to  adjust  the  various 
inputs  and  analyze  their  effect  on  the  output. 

B.  GROUND  TRACE 

The  ability  of  the  user  to  visualize  the  ground  trace  of  the  satellite  is 
probably  the  most  important  tool  in  understanding  the  operation  T  a  satellite. 
Thus,  the  first  major  challenge  in  the  design  of  the  program  was  to  give  the  user 
that  capability.  The  physics  involved  in  the  determination  of  a  satellite's  position 
on  orbit  are  not  difficult  and  the  average  junior  officer  has  the  education  required 
to  understand  the  process.  The  problem  arises  in  transferring  that  orbital  position, 
which  resides  in  one  coordinate  system,  to  a  map  of  the  earth,  which  resides  in 
another  coordinate  system.  The  user  should  also  be  able  to  visualize  a  footprint 
on  the  ground  of  what  the  satellite  can  see.  Additionally,  the  user  should  be  able 
to  display  the  ground  trace  and  footprint  of  the  satellite  on  a  detailed  map. 

Traditionally,  the  orbit  of  a  satellite  is  based  jpon  an  earth-centered  inertial 
coordinate  system.  A  location  on  the  surface  of  the  earth  is  referenced  to  another 
system.  Tying  these  two  coordinate  systems  together  requires  a  coordinate 
transformation.  The  specific  algorithm  for  this  process  was  adapted  from  the 
work  of  Dennis  Wangsness  [Ref.  2].  This  algorithm  allows  the  program  to  plot 
the  ground  track  of  the  orbit  on  a  world  map.  The  world  map  in  question  resides 
on  the  background  of  a  card.  The  process  that  the  program  uses  to  display  the 
ground  trace  is  to  copy  the  card  with  the  world  map  and  paste  it,  draw  the 


10 


ground  trace  and  then  repeat  the  routine.  The  script  for  this  process  is  located  in 
Appendix  E,  pages  205  to  209,  and  the  associated  handlers  are  in  Appendix  B, 
pages  130  to  136. 

The  footprint  of  the  satellite  is  a  function  of  the  satellite’s  altitude  above  the 
earth  and  of  the  ground  station's  minimum  antenna  elevation.  The  ability  to 
model  the  specifics  of  the  satellite  antenna  exists  but  was  not  included  in  this 
thesis.  Once  again,  a  coordinate  transformation  is  required.  The  algorithm  for  this 
process  was  adapted  from  the  work  of  Dennis  Wangsness  [Ref.  2].  The  scripts 
for  this  process  are  located  in  Appendix  E,  pages  205  to  209,  and  the  associated 
handlers  are  in  Appendix  B,  pages  130  to  136. 

Perhaps  the  greatest  challenge  was  locating  maps  that  could  provide 
accurate  detail  of  specific  locations  on  the  earth.  Many  maps  exist  on  computer 
shareware  that  could  provide  the  required  detail,  but  they  could  not  be  used 
because  their  geographic  parameters  were  unknown.  In  order  for  the  maps  to 
work  with  the  existing  scripts,  the  latitude  separation  must  be  the  same  at  any 
location  on  the  map.  That  same  property  must  hold  true  for  the  longitude.  This 
type  of  map  is  known  as  a  rectangular  projection  and  is  the  type  of  projection 
used  by  the  world  map.  While  this  type  of  projection  on  a  small  scale  map  causes 
significant  distortions  at  higher  latitudes,  the  distortions  are  minimal  on  a  large 
scale  map.  The  maps  were  generated  by  a  product  called  MicroCam  [Ref.  3]. 
MicroCam  allows  the  user  to  select  the  desired  projection,  the  center  point  of  the 
map  and  the  comer  points.  The  maps  are  then  scanned  into  the  program  stack. 
Once  the  maps  with  the  proper  projection  were  obtained,  scaling  them  to  fit  the 
ground  trace  algorithm  was  relatively  simple.  The  maps  used  for  this  program  are 


depicted  in  Appendix  A,  pages  48  to  62.  The  scaling  parameters  are  listed  in 
Appendix  E,  pages  210  to  214. 

C  RISE  AND  SET 

It  is  important  to  understand  that,  in  most  cases,  a  satellite  does  not  hover 
overhead  a  ground  station  like  a  helicopter.  The  only  time  this  is  true  is  if  the 
satellite  is  in  a  geostationary  orbit.  Depending  upon  the  space  system  analyzed, 
this  orbit  may  be  prohibitive  to  the  satellite's  mission.  In  all  other  cases,  the 
satellite  will  appear  to  the  ground  station  to  rise  and  set  in  the  sky  much  like  the 
sun  or  the  moon.  In  order  for  the  user  to  visualize  how  the  orbital  parameters  and 
ground  station  location  can  impact  access  to  the  satellite,  an  ability  to  determine 
the  rise  and  set  times  of  the  satellite  must  exist.  A  geostationary  satellite  is  treated 
as  a  special  case  by  the  program  and  is  always  considered  in  view. 

The  solution  for  the  rise  and  set  times  again  involve  coordinate 
transformations,  as  described  above,  and  the  transposition  of  the  satellite  position 
vector  onto  the  ground  station  position  vector.  When  the  magnitude  of  the 
resultant  vector  exceeds  the  radius  of  the  earth,  the  satellite  is  considered  to  be 
above  the  ground  station's  horizon. 

In  order  to  increase  the  accuracy  of  the  program,  allowances  are  made  for 
the  oblateness  of  the  earth.  The  Earth's  radius  at  the  equator  exceeds  its  radius  at 
the  poles  by  about  21  kilometers.  This  fact  could  alter  the  rise  and  set  times  by 
several  minutes  if  not  accounted  for.  The  genesis  for  the  algorithm  that  provides 
the  solution  for  the  rise  and  set  times  was  provided  by  the  work  of  William  Zeleny 
[Ref.  4].  The  actual  script  is  reproduced  in  Appendix  E,  pages  184  to  187,  and 
the  associated  handlers  are  in  Appendix  B,  pages  130  to  136. 


D.  LINK  PERFORMANCE 


The  performance  of  a  communications  link  is  a  function  of  not  only  the 
equipment  involved  but  also  the  range  between  the  stations,  atmospheric 
conditions,  distance  travelled  in  the  atmosphere  and  the  frequency  utilized.  This 
list  is  not  all  inclusive  but  is  indicative  of  the  parameters  modeled  by  the  program. 
In  order  to  visualize  these  parameters  and  their  effect  on  one  another,  a 
spreadsheet  type  format  was  used.  Once  the  display  is  generated,  the  user  can 
quickly  modify  the  inputs  and  analyze  the  impact.  The  most  difficult  element  to 
model  was  the  attenuation  of  the  signal  due  to  rainfall.  The  prediction  of  this 
attenuation  is  dependent  on  the  local  climatic  conditions  of  the  ground  station. 

The  prediction  of  climatic  conditions  is  not  an  easy  venture.  Rainfall  rates 
and  intensities  and  the  altitudes  from  which  the  rain  begins  vary  throughout  the 
world.  In  order  to  simplify  the  process  the  Crane  Global  Rain  model  was  adapted 
to  the  program.  The  Crane  model  was  used  because  it  is  fairly  accurate,  easy  to 
implement,  and  exists  in  many  texts  and  handbooks  that  cover  the  topic  of 
communications  [Ref.  5,  pp.  157-165].  The  Crane  model  identifies  eight  major 
climate  regions  on  the  earth  and  establishes  twelve  different  rainfall  rates  based 
upon  the  percentage  of  time  over  one  year  that  the  rainfall  rate  is  exceeded. 

Selection  of  the  Crane  model  provided  the  solution  to  one  piece  of  the 
puzzle.  The  second  problem  was  identifying  which  climate  region  corresponded 
to  the  geographic  location  of  the  ground  station  in  question.  The  solution  was  to 
trap  the  system  message  "mouseUp"  on  a  button  that  identified  the  climate  region. 
The  buttons  that  contain  this  script  overlay  a  global  map  of  the  earth.  This 
particular  card  is  provided  to  the  user  for  entry  of  the  ground  station  directly  on 
the  screen.  The  card  and  associated  map  and  buttons  were  adapted  from  the 
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work  of  Charles  Howard  [Ref.  6].  The  scripts  that  calculate  the  rain  attenuation 
are  in  Appendix  E,  pages  189  to  191,  and  the  associated  handlers  are  in  Appendix 
C. 
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rV.  RECOMMENDATIONS  AND  CONCLUSIONS 


A.  RECOMMENDATIONS 

The  program  developed  for  this  thesis  models  the  satellite  communications 
element  of  a  space  system.  Additional  topic  areas  that  for  communications 
systems  include: 

•  Signal  attenuation  due  to  atmospheric  conditions  such  as:  atmospheric 
dust,  presence  of  clouds  and  fog.  and  smoke. 

•  Communications  via  relay  satellites 

•  Modelling  the  actual  satellite  antenna  characteristics  and  resultant  satellite 
footprint. 

•  Doppler  shift  induced  by  satellite  motion 

•  Spread  spectrum  technology 

•  Digital  coding,  bit  error  rates  and  coding  gains 

These  are  areas  of  concern  that  are  important  in  understanding  how  a 
satellite  communications  system  works. 

Additional  space  system  topics  that  would  complement  this  thesis  are: 

•  Ascent  trajectory  from  launch  to  orbital  insertion 

•  Effects  of  orbital  perturbations 

•  Satellite  subsystem  breakdown  and  subsystem  operation  for  a  generic 
three  axis  or  spin  stabilized  satellite. 

•  Control  and  tasking  of  a  satellite  or  satellite  constellation. 

These  areas  of  interest  could  be  developed  as  separate  modules  of  the  original 
program  and,  utilized  as  a  whole,  would  provide  valuable  education  in  the 
operation  of  a  space  system. 
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B.  CONCLUSION 


The  program  developed  for  this  thesis  demonstrates  that  educational  tools 
can  be  developed  that  provide  comprehensive  insight  into  the  operation  of  a 
complex  system.  The  interactive  design  of  the  program  forces  the  user  to  become 
involved  with  the  process,  thus  learning  by  doing.  The  object-oriented  like 
nature  of  HyperCard  and  the  included  on-line  help  allow  the  user  to  operate  the 
program  with  minimal  training.  The  specific  topic  of  the  program  attempts  to 
remedy  an  educational  shortfall  in  an  increasingly  vital  area. 
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APPENDIX  A;  STACK  CARDS 
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Orbital  Elements  Ground  Station  Link  Info 
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Orbital  Elements  Ground  Station  Link  Info 
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Orbital  Info  Ground  Station  Link  Info  Ground  Trace  Compute  Rise  and  Set  Print  Card 
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Noise  Bandwidth  Print  Card  Ideal  Budget  Full  Budget  Rain  Losses  Jamming  Leases  Xmit  Losses 


Orbital  Info  Ground  Station  Link  Info  111111111111111  buttOn  belOW  the  Selection. 
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Orbital  Info  Ground  Station  Transmitter 
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Orbitdl  Info  Ground  Station  Antenna 
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Bandwidth  Print  Card  Ideal  Budget  Uplink  Budget  Rain  Losses  Jamming  Losses  Xmit  Losses 
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Select  a  map  for  view  and  if  required  select  'Ground  Swath'  to  display 
the  area  in  the  satellites  view  based  upon  the  ground  stations  antenna 
elevation. 
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le  formula  for  the  true  antenna  elevation  (h)  is  as  follows: 
h=  arctan[(sinhM  -  R/r)/cosha>] 

!  'R'  is  the  radius  of  the  earth  corrected  for  oblateness  (Km),  'r'  is  the  radius  of  the  satellite 
54  Km  for  a  geostationary  satellite)  and  'hoo'  is  the  satellite's  elevation  above  the  equator. 
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APPENDIX  B:  STACK  SCRIPT 


Scnpt  of  Slack  "ENR\NCED  SATELLITE  COMML'NICATIONS  ANALYSIS  PROGILAM  (ESCAP)" 


-TITLE; 

-  ALTHOR: 

-  DATE: 

-  REVISED: 

--  DESCRIPTION: 


Enhanced  Satellite  Communications  Analysis  Program 
Kevm  R.  .Andersen 
21  \LARCH  1991 
8  September  1991 

This  program  is  written  in  partial  fulfillment  of  the 
requirements  for  the  degree  of  Master  of  Science 
(Systems  Technology)  from  the  Naval  Postgraduate  School. 
Monterey,  C.A  The  program  has  not  been  verified! 


on  opens  tack 

global  orbitPage,groundPage.commPage,begin4nuJ^e,c,dBk/2d.d2r,we 

global  earth_eN’oise,TIVEosses 

put  false  into  orbiiPage 

put  false  into  groundPage 

put  false  into  commPage 

put  false  into  Noise 

put  false  into  TIV 

put  false  into  Losses 

put  true  into  begin 

put  398601.2  into  mu 

put  6378  into  Re 

put  2  997925*  10''8  into  c 

put  -228.599  into  dBk 

put  180/ pi  into  r2d 

put  pi/ 180  into  d2r 

put  00007292115856  into  we 

put  0.081992  into  earth_e 

set  cmdChar  of  menultem  2  of  menu  "Options”  to  D 
end  opens  tack 


function  FreqToWavc  freq 
global  c 

put  c'(freq*l(y'9)  into  wave 
return  wave 
end  FreqToWave 


function  log  s 
put  ln(s) /In(lO)  into  it 
return  it 
end  log 


function  num  s 
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put  e.\p(s  4342944)  into  it 
return  it 
end  num 


function  aSin  sinAng 
put  sqrt(  1  -  sin-4ng*siiL4ng)  into  cosAng 
if  cosAng  o  0  then 
put  Atan(sin.\ng  cosAng)  into  ang 
else 

put  siiL\ng*pi  abs(2*sin.Ang)  into  ang 
end  if 
return  ang 
end  aSin 


function  aCos  cos.\ng 
if  cos.Ang  o  0  then 
put  sqrt(  1  -cosAng*cos.AQg)  into  sirtAng 
put  sinAng'Cos,\ng  into  lanAng 
put  alan(tanAng)  into  ang 
if  ang  <  pi  then 
put  ang  H-  pi  into  ang 
end  if 
else 

put  pi  2  into  ang 
end  if 
return  ang 
end  aCos 


function  aTan2  \,y 
put  sqrt(x*\  y ‘y)  X  into  denom 
if  denom  >  0  then 
put  2*aTan(y  denom)  into  ang 
else 

put  pi  into  ang 
end  if 
return  ang 
end  aTan2 


function  GeodedicLat  Gial 
put  0  081992  into  e 
put  aian(taD(Glat)/(l-e^2))  into  GeoLat 
return  GeoLat 
end  GeodedicLat 


funchon  GeodedicR  GeoLat 
put  0  081992  into  e 
put  6378  4  into  a 

put  a*sqrt(  l-e'2*sm(GeoLat)''2)  into  R 
return  R 
end  GeodedicR 


function  SlantRange  r  Jie,true_el 
put  r''2  -  Re''2*(co8(tnie_el)>'2  into  ptl 
put  Re*sin(tnje_el)  into  pt2 
put  sqrt(ptl)  -  pt2  into  SR 
return  SR 
end  SlanlRange 


function  Azimuth  del_!on.Glat,satLat 
put  cos(Glat)*tan(satLat)  -  sin(Glat)*cos(del_loo)  into  denom 
put  sin(del_lon)  into  num 
if  satLat  =  Glat  then 
if  deljon  <  0  then 
put  pi  2  into  ang 
put  ang*  180/ pi  into  angDeg 
else  u  deljon  >  0  then 
put  3*pi  2  into  ang 
put  ang*  180  pt  into  angDeg 
end  if 

else  if  denom  =  0  then 
put  "Zenith"  into  angDeg 
else 

put  atan( -num  denom)  into  ang_rough 
if  num  <  0  and  denom  <  0  then 
put  pi  -i-  ang_rough  into  ang 
else  if  num  >  0  and  denom  <  0  then 
put  pi  -1-  ang_rough  into  ang 
else  if  num  >  0  and  denom  >  0  then 
put  2*pi  ang_rough  into  ang 
else  if  num  =  0  and  denom  <0  then 
put  pi  into  ang 
else 

put  ang_rough  into  ang 
end  if 

put  ang"  180' pi  into  angDeg 
end  if 

return  angDeg 
end  Azimuth 


function  1  imeChange  tune 
put  the  length  of  time  into  x 
if  last  char  of  tiine  is  ”M"  then 
if  char  (x  -  1)  of  time  is  T"  then 
if  char  2  of  time  is  "  "  then 
put  char  1  of  time  s-  1 2  into  HH 
put  char  3  to  4  time  into  MM 
else  if  char  2  of  time  is  "2'  then 
put  char  1  to  2  of  time  into  HH 
put  char  4  to  5  of  time  into  MM 
else 

put  char  1  to  2  of  Ume  +  12  into  HH 
put  char  4  to  5  of  time  into  MM 
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end  if 

else  if  char  2  of  time  is  "  then 
put  "0"  &  char  1  of  time  into  HH 
put  char  3  to  4  of  time  into  MM 
else  if  char  2  of  time  is  "2"  then 
put  ”00"  into  HH 
put  char  4  to  5  of  time  into  MM 
else 

put  char  1  to  2  of  time  into  HH 
put  char  4  to  5  of  time  into  MM 
end  if 

else  if  x  =  4  then 
pul  "0"  &  char  1  of  time  into  HH 
put  char  3  to  4  of  time  into  VfM 
else 

put  char  1  to  2  of  time  into  HH 
put  char  4  to  5  of  time  into  MM 
end  if 

put  HH  &  &  MM  into  Time24 

return  Time24 
end  TimeChange 


on  Newtoo_Raphson 
global  E.tjmeanMotion.ecc 

--  Newton  Raphson  solution  to  the  Eccentric  Anomaly 
put  I  into  dE 
repeat  while  abs(dE)  >  .01 
put  t  -  meaiLMotion*(E  -  ecc*sin(E))  into  f 
put  -meanMotiou*(  1  -  ecc*cos(E))  into  df 
put  -f  df  into  dE 
put  E  +  dE  into  E 
end  repeat 

end  Newton_Raphsoo 


on  MaxLonCheck 

global  lon.GlonJonVjna-xLonJonCk.GlonCk 
global  lonVckjnaxLonCkJlotType>lap 
if  PlotType  is  "Sub  Satellite"  then 
put  Ion  into  1 

else  if  PlotType  is  "Ground  Site"  then 
put  Glon  into  1 

else  if  PlotType  is  "Field  of  View"  then 
put  lonV  into  1 
end  if 

if  Map  is  "North  Pacific"  then 
if  1  <  0  then 
put  2*pi  +  1  into  ICk 
else  put  1  into  IGt 
put  2*pi  +  maxLon  into  maxLonCk 
else  if  Map  is  "South  Pacific"  then 
if  1  <  0  then 
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put  2*pi  +  I  into  ICk 
else  put  1  into  ICk 
put  2*pi  maxLon  into  inaxLonCk 
else 

put  1  into  ICk 

put  ma^Lon  into  maxLonCk 
end  if 

if  PlotType  is  "Sub  Satellite"  then 
put  ICk  into  lonCk 
else  if  PlotType  is  "Ground  Site"  then 
put  ICk  into  GlonCk 
else  if  PlotType  is  "Field  of  View"  then 
put  ICk  into  lonVck 
end  if 

end  MaxLonCbeck 


on  Swath_Width 

global  latJonjtj'Jie^t_el.tl,t2.dphi.el.e2,e3 

global  nl,n24i3,pl,p2,p3.earth_e,cEl4El 

put  0,081992  into  earth_e 

put  sinflnt)  into  sLat 

put  cosflat)  into  cLat 

put  sinflon)  into  sLon 

put  cosflon)  into  cLon 

put  sin(ant_el)  into  sB 

put  cos(ant_el)  into  cH 

put  cLat*cLoo  into  pi 

put  cLat*sLon  into  p2 

put  sLat  into  p3 

--  Get  Sub  Satellite  R 

-  put  atan(tan(lat)/(l  -earth_e^2))  into  GeoLat 
--  put  Re*sqrt(l  -  earth_e^2*sin(G€oLat)^2)  into  R_Obloag 
if  abs(z)  is  not  1  then 
put  sqrt(pl''2  +  p2''2)  into  length 
-  Find  the  east  unit  vector 
put  -p2/length  into  el 
put  pi  length  into  e2 
put  0  into  e3 

--  Find  the  north  unit  vector 
put  -p3*e2  into  nl 
put  p3*el  into  n2 
put  pl*e2  -  p2*el  into  n3 
else 

put  1  into  el 
put  0  into  e2 
put  0  into  e3 
put  0  into  nl 
put  1  into  n2 
put  0  into  n3 
end  if 

put  SlantRange(rJleant_el)  into  range 
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put  Re  +  range’sH  into  tl 
put  range*cB  into  t2 
put  pi/ 1 5  into  dphi 
end  Swath_Width 


on  Interpolate 

global  PlotType.xS.yS.oldXs.oldYs.yVj^V.oldYv.oldXv 
if  PlotType  is  "Sub  Satellite"  then 
put  \S  into  \N 
put  yS  into  yN 
put  oldXs  into  xO 
put  old\'s  into  yO 

else  if  HotType  is  "Field  of  View"  then 
put  xV  into  xN 
put  yV  into  yN 
put  oldXv  into  xO 
put  oldY  V  into  yO 
end  if 

if  xN  -  xO  <  0  then 
put  507  +  xN  into  x  1 
put  (yN-yO)  (xl-xO)  into  m 
put  yO  +  m*(509  -  xO)  into  y 
drag  from  roundfxO)  jound(yO)  to  509 jound(y) 
drag  from  2jx)und(y)  to  round(,xN)round(yN') 
end  if 

if  xN  -  xO  >  0  then 
put  -507  +  xN  into  x  1 
put  (yN-yO)/(xl-xO)  into  m 
put  yO  +  m*(2  -  xO)  into  y 
drag  from  round(xO)  jound(yO)  to  2j‘ound(y) 
drag  from  509jound(y)  to  round(xN)/ound(yN) 
end  if 

end  Interpolate 


on  OrbitXform 

global  asnDeg,perDeg4ncDcg.GHAdeg.ex.ey,ez,vx,vy,vz£^inE,cosE 
global  d2rj^,t04neanMotion.ecc,param3 
--  Convert  angles  in  deg  to  angles  in  radians 
if  perDeg  <180  then  put  pcrDeg+360  into  perDeg 
if  perDeg  >  180  then  put  perDeg  -  360  into  perDeg 
put  pi/ 180  into  d2r 
put  asnDeg*d2r  into  asn 
put  perDeg*d2r  into  per 
put  incDeg*d2r  into  inc 
put  GHAdcg*d2r  into  GHA 
-  Get  components  of  unit  vecton 
--  Unit  vector  pointing  toward  ascending  node  (n) 
put  cosfasn  +  GHA)  into  nx 
put  sinfasn  +  GHA)  into  ny 
put  0  into  nz 

--  Unit  vector  normal  to  the  plane  (h) 
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put  sin(inc)*sm(asn  +  GHA)  into  hx 
put  -sin(inc)*cos(asn  +  GHA)  into  hy 
put  cos(inc)  into  hz 

-  Get  vector  in  plane  perpendicular  to  n,  given  by  axb 
put  hy*nz  -  hz*ny  into  ux 

put  hz*nx  -  hx*nz  into  uy 

put  h,x*ny  -  hy*nx  into  uz 

-  Get  unit  vector  poinung  toward  perigee  (e) 

put  cos(per)  into  cosPer 

put  sin(per)  into  sinPer 

put  cosPer*nx  +  sinPer*ux  into  ex 

put  cosPer*ny  +  sinPer*uy  into  ey 

put  cosPer*nz  +  sinPer*uz  into  ez 

--  Get  vector  perpendicular  to  e  and  in  plane  of  orbit,  v  is 

-  in  the  direction  of  the  Semi-Latus  Rectum  (param) 
put  hy*ez  -  h2*ey  into  vx 

put  hz*ex  -  hx*ez  into  vy 
put  Lx*ey  -  hy*ex  into  vz 
put  (ecc  +  cos(-per))/(l  +  ecc*cos(-per))  into  cosE 
put  param (l+ecc*co8( -per))  into  tO 
put  rO*sin(-per)/(a*sqrt(l-€cc*ecc))  into  sinE 
put  aTan2(cosE,sinE)  into  E 
put  meanMotion*(E  -  ecc*sin(E))  into  tO 
end  Orb'tXfonn 


on  PlotMap 

global  lonJat.Glon.Glat JonV  JatV  ,aLon3Lat.bLon.bLat,cLon,cLat 
global  xS  .yS  .gxS  .gyS  ^ V  ,y V  >lapPlotT ype 
if  PlotType  is  "Sub  Satellite"  then 
put  Ion  into  longitude 
put  lat  into  latitude 
else  if  PlotType  is  "Ground  Site"  then 
put  Glon  into  longitude 
put  Glat  into  latitude 
else  if  PlotType  is  "Field  of  View"  then 
put  lonV  into  longitude 
put  latV  into  latitude 
end  if 

if  Map  is  "Global  Map"  then 
put  aLoo  bLon*iongitude  into  x 
put  aLat  -t-  bLat*iatitude  mto  y 
else  if  Map  is  "North  Pole"  then 
put  255  -t-  siD(-longitude)*(pi/2  -  latitude)*296.028  into  x 
put  172  -  ooa(-longitude)*(pi/2  -  latitude)*296.028  into  y 
else  if  Map  is  "South  Pole"  then 
put  255  +  sin(]ongitude)*sin(pi/2  +  latitude)*247.327  into  x 
put  124  -  cos(1ongitude)*sin(pi/2  +  latitude)*247  327  into  y 
else  if  Map  is  "North  Pacific*  then 
if  longitude  <  0  then 
add  2*pi  to  longitude 
end  if 
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put  aLon  +  bLon*(longitude  -  cLon)  into  x 
put  aLat  +  bLat*(latitude  -  cLat)  into  y 
else  if  Map  is  "South  Pacific"  then 
if  longitude  <  0  then 
add  2*pi  to  longitude 
end  if 

put  aLon  +  bLon*(longitude  -  cLon)  into  x 
put  aLat  bLat*(lautude  -  cLat)  into  y 
else 

put  aLon  +  bLon*Oongitude  -  cLon)  into  x 
put  aLat  +  bLat’Oatitude  -  cLat)  into  y 
end  if 

if  PlotType  is  "Sub  Satellite"  then 
put  X  into  xS 
put  y  into  yS 

else  if  PlotType  is  "Ground  Site"  then 
put  X  into  gxS 
put  y  into  gyS 

else  if  PlotType  is  "Field  of  View"  then 
put  X  into  xV 
put  y  into  yV 
end  if 

end  PlolMap 


function  Lat  V 
put  160  -  V  into  t 
if  V  <=  160  then 

put  t*(0.76923  -  226595*(t.  160))  into  Glat 
else  if  V  >  160  then 

put  t*(0.76923  +  226595*(t'160))  into  Glat 
end  if 
return  Glat 
end  Lat 


function  PositLat  Glat 
put  Glat*(  180/pi)  into  GlatDeg 
if  GlatDeg  >=  0  then 
put  0  226595'  160  into  a 
put  -0,76923  into  b 
put  GlatDeg  into  c 
put  (-b  -  sqrt(b^2-4*a*c))/(2*a)  into  t 
else  if  GlatDeg  <  0  then 
put  0  226595/160  into  a 
put  0.76923  into  b 
put  -GlatDeg  into  c 
put  (  b  -t-  sqrt(b^2-4*a*c))/(2*a)  into  t 
end  if 

put  160  - 1  into  V 
return  round(V) 
end  PositLat 
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function  PositLon  Glon 
put  Glon*467'(2*pi)  -t-  254,5  into  H 
return  roundfH) 

--  put  (H  -  254.5)*(2*pi)/467  into  Glon 
end  PositLon 


APPENDIX  C;  BACKGROUND  SCRIPTS 


Scnpt  of  Background  "General" 


function  FindRegion  region 
if  first  char  of  region  is  "D"  then 
if  char  2  of  region  >  "3"  then 
put  "D2"  into  rainRegion 
else  put  char  1  to  2  of  region  into  rainRegion 
else 

put  char  1  of  region  into  rainRegion 
end  if 

return  rainRegion 
end  FindRegion 


on  FillRegion 
global  rainRegion 
lock  screen 

--  this  section  loads  the  surface  point  rain  rate  numbers  into  the  12  fids 
-•  corresponding  to  the  12  ^s  of  rainfall  per  year  based  on  the  selected 


-  rain  climate  region 
if  ramRegioo="A"  then 


put 

"A"  into  cd  fid  "Region 

put 

28  5  into  cd  fid  4 

put 

21  into  cd  nd  S 

put 

13.5  into  cd  fid  6 

put 

10  0  into  cd  fid  7 

put 

7  into  cd  fid  8 

put 

4  into  cd  fid  9 

put 

2.5  into  cd  fid  10 

put 

15  into  cd  fid  11 

put 

0  7  into  cd  fid  12 

put 

0  4  into  cd  fid  13 

put 

0  1  into  cd  fid  14 

put 

0  0  into  cd  fid  15 

else  1 

f  rainRegioa="B"  then 

put 

"B"  into  cd  fid  "Region 

put 

57  5  into  cd  fid  4 

put 

44  into  cd  fid  5 

put 

28  5  into  cd  fid  6 

put 

19  5  into  cd  fid  7 

put 

13  5  into  cd  fid  8 

put 

8  into  cd  fid  9 

put 

5  2  into  cd  fid  10 

put 

3  4  into  cd  fid  1 1 
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put  19  into  cd  fid  12 
put  17  into  cd  fid  13 
put  13  into  cd  fid  14 
put  0  3  into  cd  fid  15 
else  if  rainRegion="C"  liien 
put  "C"  into  cd  fid  "Region" 
put  78  into  cd  fid  4 
pul  62  into  cd  fid  5 
put  41  into  cd  fid  6 
put  28  into  cd  fid  7 
put  18  into  cd  fid  8 
put  1 1  into  cd  fid  9 
put  7  2  into  cd  fid  10 
pul  4  8  into  cd  fid  1 1 
put  2.7  into  cd  fid  12 
put  18  into  cd  fid  13 
put  I  I  into  cd  fid  14 
put  0.5  into  cd  fid  15 
else  if  rainRegion="Dr  then 
put  "Dl"  into  cd  fid  "Region" 
put  90  into  cd  fid  4 
put  72  into  cd  fid  5 
put  50  into  cd  fid  6 
put  35  5  into  cd  fid  7 
put  24  into  cd  fid  8 
put  14.5  into  cd  fid  9 
put  9  8  into  cd  fid  10 
put  6  4  into  cd  fid  1 1 
put  3  6  into  cd  fid  12 
put  2.2  into  cd  fid  13 
put  12  into  cd  fid  14 
put  0  0  into  cd  fid  15 
else  if  rainRegion="D2"  then 
put  "D2"  into  cd  fid  "Region" 
put  108  into  cd  fid  4 
put  89  into  cd  fid  5 
put  64  5  into  cd  fid  6 
put  49  into  cd  fid  7 
put  35  into  cd  fid  8 
put  22  into  cd  fid  9 
put  14  5  into  cd  fid  10 
put  9  5  into  cd  fid  1 1 
put  5  2  into  cd  fid  12 
put  3  into  cd  fid  13 
put  1  5  into  cd  fid  14 
put  0  0  into  cd  fid  15 
else  if  rainRcgion="D3"  then 
put  "D3"  into  cd  fid  "Region" 
put  126  into  cd  fid  4 
put  106  into  cd  fid  5 
put  80  5  into  cd  fid  6 
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put  63  into  cd  fid  7 
put  48  into  cd  fid  8 
put  32  into  cd  fid  9 
put  22  into  cd  fid  10 
put  14  5  into  cd  fid  1 1 
put  7  8  into  cd  fid  12 
put  4  ■'  into  cd  fid  13 
put  1  9  into  cd  fid  14 
put  0  0  into  cd  fid  15 
else  if  rainkegion^T"  then 
put  "E"  into  cd  fid  "Region" 
put  165  into  cd  fid  4 
put  144  into  cd  fid  5 
put  1 18  into  cd  fid  6 
put  98  into  cd  fid  7 
put  78  into  cd  fid  8 
put  52  into  cd  fid  9 
put  35  into  cd  fid  10 
put  21  into  cd  fid  1 1 
put  10  6  into  cd  fid  12 
put  6  into  cd  fid  13 
put  2.9  into  cd  fid  14 
put  0  0  into  cd  fid  15 
else  if  raiaRegion="F"  then 
put  "F"  into  cd  fid  "Region" 
put  66  into  cd  (Id  4 
put  51  into  cd  fid  5 
put  34  into  cd  fid  6 
put  23  into  cd  fid  7 
put  15  into  cd  fid  8 
put  8  3  into  cd  fid  9 
put  5  2  into  cd  fid  10 
put  3  1  into  cd  fid  1 1 
put  14  into  cd  fid  12 
put  0  7  into  cd  fid  13 
put  0  2  into  cd  fid  14 
put  0  0  into  cd  fid  15 
else  if  rainRegioa="G"  then 
put  "G"  into  cd  fid  "Region" 
put  185  into  cd  nd  4 
put  157  into  cd  nd  5 
put  120.5  into  cd  Hd  6 
put  94  into  cd  nd  7 
put  72  into  cd  nd  8 
put  47  into  cd  nd  9 
put  32  into  cd  nd  10 
put  2 1  8  into  cd  nd  1 1 
put  12  2  into  cd  nd  12 
put  8  into  cd  nd  13 
put  5  into  cd  nd  14 
put  18  into  cd  nd  15 
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else 

put  "TI"  into  cd  fid  "Region" 
put  253  into  cd  fid  4 
put  220  5  into  cd  fid  5 
put  178  into  cd  fid  6 
put  147  into  cd  fid  7 
put  1 19  into  cd  fid  8 
put  86  5  into  cd  fid  9 
put  64  into  cd  fid  10 
put  43  5  into  cd  fid  1 1 
put  22  5  into  cd  fid  12 
put  12  into  cd  fid  13 
put  5  2  into  cd  fid  14 
put  12  into  cd  fid  15 
end  if 

end  FillRegion 


function  calculateOCisothenn  Glat.Case 
put  abs(Glat)  into  Latitude 

if  hilite  of  cd  btn  7  =  true  or  hilite  of  cd  btn  8  =  true  or  -> 

--  hilite  of  cd  btn  9  =  true  then  put  "1"  into  Case 

--  else  if  hilite  of  cd  btn  10  =  true  or  hilite  of  cd  btn  1 1  =  true  or 

-  hilite  of  cd  btn  12  =  true  then  put  "2"  into  Case 

--  else  if  hilite  of  cd  btn  13  =  true  or  hilite  of  cd  btn  14  =  true  or 
--  hilite  of  cd  btn  15  =  true  then  put  "3"  into  Case 

-  else  if  hilite  of  cd  btn  16  =  true  or  hilite  of  cd  btn  17  =  true  or  -i 
--  hilite  of  cd  btn  18  =  true  then  put  "4"  into  Case 

if  latitude>=0  and  latitude<=20  then 
if  Case="I"  then  put  5.4  into  H 
if  Case="2"  then  put  5  2  into  H 
if  Case="3"  then  put  4  85  into  H 
if  Case="4"  then  put  4  5  into  H 
end  if 

if  latitudo=21  and  latitude<=30  then 
if  Case="l"  then  put  5.3  into  H 
if  Casc="2"  then  put  5  into  H 
if  Case="3"  then  put  4  5  into  H 
if  Case="4"  then  put  4  into  H 
end  if 

if  latitude>=3 1  and  ladtude<=35  then 
if  Case=:"l"  then  put  5  into  H 
if  Case="2"  then  put  4.5  into  H 
if  Case="3"  then  put  3.9  into  H 
if  Case="4"  then  put  3.2  into  H 
end  if 

if  latitiide>=36  and  latitude<=40  then 
if  Case="r  then  put  4.7  into  H 
if  Case="2"  then  put  4  into  H 
if  Case="3'‘  then  put  3  3  into  H 
if  Case="4"  then  put  2  4  into  H 
end  if 
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if  latitude>=41  and  latitude<=45  then 
if  Case="l"  then  put  4.4  into  H 
if  Case="2"  then  put  3  6  into  H 
if  Case="3"  then  put  2.7  into  H 
if  Case="4"  then  put  18  into  H 
end  if 

if  laumde>=46  and  latitude<=50  then 
if  Case="l"  then  put  4  into  H 
if  Case="2"  then  put  3.2  into  H 
if  Case='3"  then  put  2.2  into  H 
if  Case="4"  then  put  1.2  into  H 
end  if 

if  latitude>=51  and  latitude<=55  then 
if  Case="l"  then  put  3.6  into  H 
if  Case="2"  then  put  2.7  into  H 
if  Case="3"  then  put  1.7  into  H 
if  Casc="4"  then  put  7  into  H 
end  if 

if  latitude>=56  and  latitudec^^  then 
if  Case="l"  then  put  3  1  into  H 
if  Case="2"  then  put  2.2  into  H 
if  Case=’*3"  then  put  1 J  into  H 
if  Case="4"  then  put  .4  into  H 
end  if 

if  latitude>=61  and  Iatitude<=65  then 
if  Cas€="r  then  put  2.7  into  H 
if  Case="2"  then  put  18  into  H 
if  Case="3"  then  put  I  into  H 
if  Casc="4"  then  put  2  into  H 
end  if 

if  Iatitude>=66  then 
if  Case="l"  then  put  2.3  into  H 
if  Cas€="2"  then  put  16  into  H 
if  Case="3"  then  put  .8  into  H 
if  Case="4"  then  put  .01  into  H 
end  if 
return  H 

end  calculateOCisotheim 


functioo  FindRate  rainRegioaJViocnt 

-  this  section  loads  the  surface  point  rain  rate  numbers  into  the  12  fids 

-  corresponding  to  the  12  %s  of  rainfall  per  year  based  on  the  selected 

-  rain  climate  region 
if  rainRegioo=”A*  then 

if  Percent  <=  0.002  then  put  28.5  into  Rate 
else  if  Percent  <=  0.005  then  put  21  into  Rate 
else  if  Percent  <=  0.01  then  put  13.5  into  Rate 
else  if  Percent  <=  0  02  then  put  10  0  into  Rate 
else  if  Percent  <=  0.05  then  put  7  into  Rate 
else  if  Percent  <=  0. 1  then  put  4  into  Rate 
else  if  Percent  <=  0.2  then  put  2.5  into  Rate 
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else  if  Percent  <=  0  5  then  put  15  into  Rate 

else  if  Percent  <=  1.0  then  put  0.7  into  Rate 

else  if  Percent  <=  2  0  then  put  0  4  into  Rate 

else  put  0  1  into  Rate 
else  if  rainRegion="B"  then 
if  Percent  <=  0  002  then  put  57  5  into  Rate 
else  if  Percent  <=  0  005  then  put  44  into  Rate 
else  if  Percent  <=  0  01  then  put  28.5  into  Rale 
else  if  Percent  <=  0  02  then  put  19  5  into  Rate 
else  if  Percent  <=  0  05  then  put  13  5  into  Rate 
else  if  Percent  <=  0  1  then  put  8  into  Rate 
else  if  Percent  <=  0  2  then  put  5  2  into  Rate 
else  if  Percent  <=  0  5  then  put  3  4  into  Rate 
else  if  Percent  <=  1.0  then  put  1.9  into  Rate 
else  if  Percent  <=  2.0  then  put  1.7  into  Rate 
else  put  13  into  Rate 
else  if  rainRegion="C"  then 
if  Percent  <=  0  002  then  put  78  into  Rate 
else  if  Percent  <=  0.005  then  put  62  into  Rate 
else  if  Percent  <=  0.01  then  put  41  into  Rate 
else  if  Percent  <=  0  02  then  put  28  into  Rate 
else  if  Percent  <=  0.05  then  put  18  into  Rate 
else  if  Percent  <=  0  1  then  put  1 1  into  Rate 
else  if  Percent  <=  0  2  then  put  7  2  into  Rate 
else  if  Percent  <=  0  5  then  put  4  8  into  Rate 
else  if  Percent  <=  10  then  put  2.7  into  Rate 
else  if  Percent  <=  2.0  then  put  18  into  Rate 
else  put  11  into  Rate 
else  if  rainRegion="Dr  then 
if  Percent  <=  0  002  then  put  90  into  Rate 
else  if  Percent  <=  0  005  then  put  72  into  Rate 
else  if  Percent  <=  0  01  then  put  50  into  Rate 
else  if  Percent  <=  0  02  then  put  35.5  into  Rate 
else  if  Percent  <=  0  05  then  put  24  into  Rate 
else  if  Percent  <=  0  1  then  put  14  5  into  Rate 
else  if  Percent  <=  0  2  then  put  9  8  into  Rate 
else  if  Percent  <=  0  5  then  put  6.4  into  Rate 
else  if  Percent  <=  10  then  put  3.6  into  Rate 
else  if  Percent  <=  2.0  then  put  2.2  into  Rate 
else  put  1.2  into  Rate 
else  if  rainRegion="D2"  then 
if  Percent  <=  0.002  then  put  108  into  Rate 
else  if  Percent  <=  0.005  then  put  89  into  Rate 
else  if  Percent  <=  0.01  then  put  64.5  into  Rate 
else  if  Percent  <=  0.02  then  put  49  into  Rate 
else  if  Percent  <=  0.05  then  put  35  into  Rate 
else  if  Percent  <=  0. 1  then  put  22  into  Rate 
else  if  Percent  <=  0  2  then  put  14.5  into  Rate 
else  if  Percent  <=  0.5  then  put  9.5  into  Rate 
else  if  Percent  <=  10  then  put  5  2  into  Rate 
else  if  Percent  <=  2  0  then  put  3  into  Rate 
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else  put  1.5  into  Rate 
else  if  rainRcgion="D3"  then 
if  Percent  <=  0002  then  put  126  into  Rate 
else  if  Percent  <=  0.005  then  put  106  into  Rate 
else  if  Percent  <=  0  01  then  put  80  5  into  Rate 
else  if  Percent  <=  0  02  then  put  63  into  Rate 
else  if  Percent  <=  0  05  then  put  48  into  Rate 
else  if  Percent  <=  0  1  then  put  32  into  Rate 
else  if  Percent  <=  0.2  then  put  22  into  Rate 
else  if  Percent  <=  0  5  then  put  14  5  into  Rate 
else  if  Percent  <=  10  then  put  7  8  into  Rate 
else  if  Percent  <=  2.0  then  put  4.7  into  Rate 
else  put  19  into  Rate 
else  if  rainRegion="E"  then 
if  Percent  <=  0  002  then  put  165  into  Rate 
else  if  Percent  <=  0  005  then  put  144  into  Rate 
else  if  Percent  <=  0  01  then  put  1 18  into  Rate 
else  if  Percent  <=  0  02  then  put  98  into  Rate 
else  if  Percent  <=  0  05  then  put  78  into  Rate 
else  if  Percent  <=  0  1  then  put  52  into  Rate 
else  if  Percent  <=  0  2  then  put  35  into  Rate 
else  if  Percent  <=  0  5  then  put  2 1  into  Rate 
else  if  Percent  <=  10  then  put  10  6  into  Rate 
else  if  Percent  <=  2  0  then  put  6  into  Rate 
else  put  2.9  -'to  Rate 
else  if  rainP  _,4on="F"  then 
if  Perce  .  <=  0  002  then  put  66  into  Rate 
else  it  Percent  <=  0  005  then  put  51  into  Rate 
else  if  Percent  <=  0  01  then  put  34  into  Rate 
else  if  Percent  <=  0  02  then  put  23  into  Rate 
else  if  Percent  <=  0  05  then  put  15  into  Rate 
else  if  Percent  <=  0  1  then  put  8  3  into  Rate 
else  if  Percent  <=  0  2  then  put  5  2  into  Rate 
else  if  Percent  <=0  5  then  put  3. 1  into  Rate 
else  if  Percent  <=  10  then  put  14  into  Rate 
else  if  Percent  <=  2  0  then  put  0  7  into  Rate 
else  put  0.2  into  Rate 
else  if  rainRegion="G"  then 
if  Percent  <=  0.002  then  put  185  into  Rate 
else  if  Percent  <=  0.005  then  put  157  into  Rate 
else  if  Percent  <=  0.01  then  put  120.5  into  Rate 
else  if  Percent  <=  0.02  then  put  94  into  Rate 
else  if  Percent  <=  0  05  then  put  72  into  Rate 
else  if  Percent  <=  0. 1  then  put  47  into  Rate 
else  if  Percent  <=  0.2  then  put  32  into  Rate 
else  if  Percent  <=  0.5  then  put  21.8  into  Rate 
else  if  Percent  <=  10  then  put  12.2  into  Rate 
else  if  Percent  <=  2  0  then  put  8  into  Rate 
else  put  5  into  Rate 
else 

if  Percent  <=  0  002  then  put  253  into  Rate 
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else  if  Percent  <=  0  005  then  put  220.5  into  Rate 
else  if  Percent  <=  0.01  then  put  178  into  Rate 
else  if  Percent  <=  0.02  then  put  147  into  Rate 
else  if  Percent  <=  0,05  then  put  1 19  into  Rate 
else  if  Percent  <=  0. 1  then  put  86  5  into  Rate 
else  if  Percent  <=  0  2  then  pmt  64  into  Rate 
else  if  Percent  <=  0  5  then  put  43.5  into  Rate 
else  if  Percent  <=  10  then  put  22.5  into  Rate 
else  if  Percent  <=  2.0  then  put  12  into  Rate 
else  put  5  2  into  Rate 
end  if 
retuTa  Rate 
end  RndRate 


fimcuon  FindRain Attenuauon  Glat£l  J^req.CaseJlateJ’ercentJiegion 
if  Freq  <  8  5  then 
put  zero  into  atten 
else  if  Rale  is  zero  then 
put  zero  into  atten 
else 

put  calculateOCisothenn(Glal.Case)  into  FI 
pul  □  57  29578  into  E 

if  freq>=2.9  and  freq<54  then  put  (4.21*(10'^(-5)))*(freq''2.42)  into  a 
else  put  (4  09*(l0^(-2)))*(freq''  699)  into  a 
if  freq>=8  5  and  freq<25  then  put  1.41*(freq''(-  0779))  into  b 
else  put  2  63*(freq''(-  272))  into  b 
if  E<  1745329  then  -- <10°  in  radians 
put  8500*9in(E)  into  it 

put  9qrt(85O0*850O*sin(E)*sin(E)+(n000*Fr)+ffi*Fr))-it  into  L 
put  cos(E)*L{8500+H)  into  it 
put  asin(il)  into  phi 
put  8500*phi  into  bigD 
else 

put  H  tan(E)  into  bigD 
put  bigD  cos (E)  into  L 
end  if 

put  3  8-(  6*ln(Rate))  into  d 
pul  2  3*(Rate''(-  17))  into  x 
put  026-(.03*ln(Rate))  into  v 
put  ln(x*enp(v*d))/d  into  u 
put  a*(Rate^b)*L/bigD  into  it 
if  btgD>=0  and  bigl><^  then 
put  it*cxpl(u*b*bigD)/(u*b)  into  atten 
else  if  d<=bigD  and  bigD<=22.5  then 
put  expl(u*b*d)/(u*b)  into  product  1 
put  (x''b)*(exp(v*b*d))'(v*b)  into  product2 
put  (x''b)*(exp(v*b*bigD))/(v*b)  into  product3 
put  it*(productl  -product2+product3)  into  atten 
els<“  if  bigD  >  22  5  then 
put  22  5  bigD'Percent  into  Percent  1 
put  Fi ndRate(Region Percent  1)  into  Rate  I 
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put  3.8-(.6*ln(Rate))  into  d 
put  2.3*(Rate'(-.  17))  into  x 
put  026-(  03*ln(Rate))  into  v 
put  ln(x*exp(v*d))/d  into  u 
put  a*(Rate''b)*L'bigD  into  it 
put  expl(u*b*d)/(u*b)  into  product  I 
put  (x''b)*(exp(v*b*d)) /(v*b)  into  pioduct2 
put  (x^b)*(exp(v  *b*bigD))/(v*b)  into  producG 
put  it*(productl  -product2+product3)  into  atten 
end  if 
end  if 
return  atten 

end  RndRain-Atlenuation 
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APPENDIX  D:  CARD  SCRIPTS 


Scnpt  of  Card  "Stack  Info" 


on  openCard 

global  orbvtPage.  groundPage 
if  orbitPage  and  groundPage  is  true  then 
hide  cd  btn  id  16 
else 

show  cd  btn  id  16 
end  if 

end  openCard 


Script  of  Card  "^Tiat  'I'ou  Know  of  Orbits" 


on  openCard 

global  orbitPage  .groundPage 
lock  screen 

vf  orbitPage  ts  false  then 
show  cd  btn  id  15 
else  if  groundPage  is  false  then 
show  cd  btn  id  15 
else 

hide  cd  btn  vd  15 
e:  .if 

uiiiock  screen 
end  openCard 


Script  of  Card  "Semimajor  Axis  Card" 


on  OpenCard 

put  "Enter  the  orbital  information  then  click  on  'Orbital  Bement3’"&&-' 
"to  continue."  into  cd  fid  "Description" 
show  cd  fid  "Description" 
select  text  of  cd  fid  "a" 
endopenCanl 


Script  of  Card  "Pengee  and  Apogee  Card" 
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on  openCard 

put  "Enter  the  orbital  information  then  dick  on  'Orbital  Hements'"&A-’ 
"to  continue."  into  cd  fid  "Description" 
show  cd  fid  "Description" 
select  text  of  cd  fid  "pAlt" 
end  openCard 


Script  of  Card  "Charlie  Hements  Card" 


on  openCard 

select  text  of  cd  fid  "Sat#" 
end  openCad 


Script  of  Card  "Geostationary  Card" 


on  openCard 

global  GeoSat,GeoSatLon,groundPage,orbitPage 
lock  screen 

if  groundPage  is  true  then 
hide  cd  btn  id  1 1  -  Link  Info  Gray 
else 

show  cd  btn  id  1 1  -  Link  Info  Gray 
end  if 

hide  bg  btn  "Help  Me" 
if  GeoSat  is  false  then 
hide  cd  btn  "Satellite  1" 
hide  cd  btn  "Satellite  2" 
else 

hide  cd  btn  "Satellite  2" 
end  if 

select  text  of  cd  fid  "Sat  Lon" 
unlock  screen 
cod  openCard 


on  closeCard 

global  GeoSatLon,change,groundPagej',d2r/2d 
lock  screen 
put  42164  into  r 
show  cd  btn  "Satellite  1" 
put  cd  fid  "Sat  Lon"  into  GeoSatLon 
if  hilite  of  cd  btn  "West"  is  true  then 
multiply  GeoSatLon  by  -d2r 
else 

multiply  GeoSatLon  by  d2r 
end  if 

put  GeoSatLon*507'(2*pi)  -t-  256  into  x 

set  the  location  of  cd  btn  "Satellite  1"  to  round(x),151 
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show  bg  b<n  "Help  Me" 
if  change  is  true  then 
put  false  into  groundPage 
put  false  into  change 
end  if 

unlock  screen 
end  closeCard 


Senpt  of  Card  "Orbital  Dements" 


on  openCard 
global  orbitPage 
lock  screen 

put  true  into  orbitPage 
unlock  screen 
endopeoCard 


Script  of  Card  "Ground  Station" 


on  openCard 

global  orbitPage,groundPage,GeoSat 
lock  screen 
if  GeoSat  is  true  then 

-  Prepare  page  for  Geostationary  option  with  2  ground  stations, 
show  cd  fid  "Geo  GS  1 " 
show  cd  fid  "Geo  GS  2" 
show  cd  fid  "Ground  Station  Latitude  2" 
show  cd  fid  "Ground  Station  Longitude  2" 
show  cd  fid  "Antenna  Elevation  2" 
show  cd  btn  "North  2" 
show  cd  btn  "South  2" 
show  cd  btn  "East  2" 
show  cd  btn  "West  2" 
show  cd  btn  id  23  —  Rise  and  Set  Gray 
show  cd  btn  id  40  -  Ground  View 
if  orbitPage  is  true  then 
hide  cd  btn  id  27  -  Link  Info  Gray 
else 

show  cd  btn  id  27  —  Link  Info  Gray 
end  if 

put  "Enter  the  latitude  and  longitude  of  your  ground  stations"  &&-' 
"or  click  on  'Enter  station  on  Map'  .4130  enter  the  desired"  &&-' 
"antenna  elevation."  &&-■ 

"Be  sure  to  double  check  their  latitude  and"  &&-• 
longitude  before  continuing  "  into  cd  fid  "Descnption" 
show  cd  fid  "Descnption" 
else 
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-  Prqjare  page  for  single  ground  station  option, 
hide  cd  fid  "Geo  GS  1 " 
hide  cd  fid  "Geo  GS  2" 
hide  cd  fid  "Ground  Station  Latitude  2" 
hide  cd  fid  "Ground  Station  Longitude  2" 
hide  cd  fid  ".\ntenna  Elevation  2" 
hide  cd  btn  "North  2" 
hide  cd  btn  "South  2" 
hide  cd  btn  "East  2" 
hide  cd  btn  "W'est  2" 
hide  cd  btn  id  40  --  Ground  View 
if  orbitPage  is  true  then 
hide  cd  btn  id  23  --  Rise  and  Set  Gray 
hide  cd  btn  id  27  --  Link  Info  Gray 
hide  cd  btn  id  24  --  Ground  Trace  Gray 
else 

show  cd  btn  id  23  --  Rise  and  Set  Gray 
show  cd  btn  id  27  --  Link  Info  Gray 
show  cd  btn  id  24  --  Ground  Trace  Gray 
end  if 

put  "Enter  the  latitude  and  longitude  of  your  ground  station"  &&-> 
"or  click  on  'Enter  station  on  Map'  .\lso  enter  the  desired"  &&-> 
"antenna  elevation"  &&-• 

"Be  sure  to  double  check  the  latitude  and"  &&-' 

"longitude  before  continuing,"  into  cd  fid  "Description" 
show  cd  fid  "Description" 
end  if 

put  true  into  groundPage 
select  text  of  cd  fid  "Ground  Sution  Latitude" 
unlock  screen 
endopenCard 


on  closeCard 

global  ant_el.Glat,Glon.tinieZone.GeoSat,Glon2,Glat2.d2rj'2dnnt_el2 
global  CardClosejegion jegionUpj’egionDown 
--  Get  Ground  Station  Coordinates 
lock  screen 

set  lockMessages  to  true 
put  cd  fid  "Antenna  Elevation"  into  ant_elDeg 
put  cd  fid  "Antenna  Elevation  2"  into  ant_elDeg2 
put  cd  fid  "Ground  Stadon  Ladtude"  into  GiatDeg 
put  cd  fid  "Ground  Stadon  Longitude"  into  GIonDeg 
put  ant_elDeg*d2r  into  ant_el 
if  hilite  of  cd  btn  "West"  is  true  then 
muidpiy  GIonDeg  by  -  I 
put  GlonDeg*d2r  into  Glon 
put  roundf  Glon  (pi'  12))  into  dmeZone 
else 

put  GlonDeg*d2r  into  Glon 
put -round(Glon  (pt  12))  into  dmeZone 
end  if 
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if  hilite  of  cd  btn  "South"  is  true  then  multiply  GlatDeg  by  - 1 

put  GlatDeg*d2r  into  Glat 

go  to  cd  "Ground  Station  Placement" 

put  PosilLat(Glal)  into  V 

put  PositLon(Glon)  into  H 

set  the  loc  of  cd  btn  "GS  1 "  to  H,V 

hide  cd  btn  "GS  1 " 

set  lockMessages  to  false 

pi  true  into  CardClose 

click  at  H.V 

set  lockMessages  to  true 
put  false  into  CardClose 
show  cd  btn  "GS  1 " 
put  region  into  regionUp 
put  region  into  regiooDown 
go  back 

if  GeoSat  is  true  then 
put  ant_elDeg*d2r  into  ant_el 
put  ant_elDeg2*d2r  into  ant_el2 
put  cd  fid  "Ground  Station  Latitude  2"  into  GlatDeg2 
put  cd  fid  "Ground  Station  Longitude  2"  into  GlonDeg2 
if  hilite  of  cd  btn  “West  2"  is  true  then 
multiply  GlonDcg2  by  -1 
put  GlonDeg2*d2r  into  Glon2 
else 

put  GlonDeg2*d2r  into  GIon2 
end  if 

if  hilite  of  cd  btn  "South"  is  true  then  multiply  GlatDeg2  by 
go  to  cd  "Ground  Sution  Placement" 
put  GlatDeg2*d2r  into  Glat2 
put  PositLat(Glat2)  into  V2 
put  PositLon(Glon2)  into  H2 
set  the  loc  of  cd  btn  "GS  2"  to  H2,V2 
hide  cd  btn  "GS  2" 
set  lockMessages  to  false 
put  true  into  CardClose 
click  at  H2.V2 
set  lockMessages  to  true 
put  false  into  CardOose 
show  cd  btn  "GS  2" 
put  region  into  regiooDown 
go  back 
end  if 

unlock  screen 
set  lockMessages  to  false 
enddoseCard 


Script  of  Card  "Rise  and  Set" 
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oQopenCard 

global  hourRequestjxriod.orbitsDayjiuinOrbits 
lock  screen 

put  hourRequest  into  T6 
convert  TB  to  short  time 

put  ume<rhange<TB)  &&  "Zulu"  into  line  2  of  cd  fid  Time  to  Begin" 
put  period  into  TP 
convert  TP  to  short  time 

put  timeChangefTP)  &&  "Hfl  NfM"  into  line  2  of  cd  fid  "Period" 
set  numberFormat  to  "0  ##" 
put  (86400  period)  into  numOrbits 
put  numOrbits  into  line  2  of  cd  fid  "Orbits" 
put  1  into  cd  fid  "Begin" 
put  1  into  cd  fid  "End" 
unlock  screen 
select  text  of  cd  fid  "Begin" 
end  opeaCard 


Script  of  Card  "Ground  Station  Placement" 


on  openCard 
global  GeoSat.GD2 
if  GeoSat  is  false  then 
hide  cd  btn  "GS  2" 
hide  cd  btn  "Second  Ground  Site" 
else  if  GeoSat  is  true  then 
show  cd  btn  "GS  2" 
show  cd  btn  "Second  Ground  Site" 
end  if 

put  false  into  GD2 
end  openCard 


on  mouseL'p 

global  ant_el,Glat,Glon,timeZone,Glat2,Glon2,GeoSat,GD2.d2rx2d.TlV 
global  CardQose 
if  CardClose  is  true  then 
pass  mouseL'p 
else 

if  GeoSat  is  true  then 
show-  cd  btn  "GS  2" 
show  cd  btn  "Second  Ground  Site" 
end  if 

if  the  mouseH  >  489  or  the  mouscH  <  22  then 
answer  "Qicked  off  the  map!  Try  again." 
pass  mouseL'p 
end  if 

if  the  mouseV  >  312  or  the  mouse <  0  then 
answer  "Qicked  off  the  map!  Try  again  " 
pass  mouseL'p 
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end  if 

--  Get  Ground  Station  Coordinates 
if  GD2  is  false  then 

set  the  loc  of  cd  bln  "GS  1 "  to  the  clickLoc 
else  if  GD2  is  true  then 
set  the  loc  of  cd  bin  "GS  2"  to  the  clickLoc 
show  cd  btn  "GS  2" 
end  if 
lock  screen 

pul  the  mouseH  into  H 
put  the  mouseV  into  V 

--  since  lautudes  are  distorted  by  the  conformal  mercator  projection, 

-  conversion  of  the  vertical  mouse  click  location  to  a  latitude  on  the 
--  map  requires  multiplication  by  a  correcting  factor  which  varies  based 
--  on  the  latitude 
if  GD2  is  false  then 
pul  Lat(V)  into  Glat 
pul  (H  -  254  5)*(2*pi)  467  into  Glon 
put  Glon*r2d  into  GlonDeg 
pul  Glat  into  GlatOeg 
multiply  Glat  by  d2r 
set  loclcVlessages  to  true 
go  to  cd  "Ground  Station” 
set  numberFormat  to  "0 
if  Glon  <  0  then 
multiply  GlonDeg  by  -1 

put  GlonDeg  into  cd  fid  “Ground  Station  Longitude" 
set  hilite  of  cd  bm  "West"  to  true 
set  hilite  of  cd  bm  "East"  to  false 
multiply  GlonDeg  by  -  I 
put  round(-Gloa  (pi  12))  into  timeZone 
else 

put  GlonDeg  into  cd  fid  "Ground  Station  Longitude" 
set  hilite  of  cd  btn  "West"  to  false 
set  hilite  of  cd  bm  "East"  to  true 
pul  -round(Glon/(pi' 12))  into  timeZone 
end  if 

if  Glat  <  0  then 
multiply  GlatDeg  by  -1 

put  GlatDeg  into  cd  fid  "Ground  Station  Latitude" 
set  hilite  of  cd  bm  "South"  to  true 
set  hilite  of  cd  bm  "North"  to  false 
else 

put  GlatDeg  into  cd  fid  "Ground  Station  Latitude" 
set  hilite  of  cd  bm  "South"  to  false 
set  hilite  of  cd  btn  "North"  to  true 
end  if 

if  GeoSat  is  true  then 
go  back 

set  lockMessages  to  false 
end  if 
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put  false  into  TIV 
else  if  GD2  is  true  then 
Put  Lat(V)  into  Glat2 
put  (H  -  254  5)*(2*pi)  467  into  Glon2 
put  Glon2*r2d  into  GlonDeg2 
put  Glat2  into  GlatDeg2 
multiply  GIat2  by  d2r 
set  lockMessages  to  true 
go  to  cd  "Ground  Station" 
set  numberFormat  to  "0 
if  Glon2  <  0  then 
multiply  GlonI>eg2  by  -1 

put  GlonDeg2  into  cd  fid  "Ground  Station  Longitude  2" 
set  hilite  of  cd  btn  "West  2"  to  true 
set  hilite  of  cd  btn  “East  2"  to  false 
else 

put  GlonDeg2  into  cd  fid  "Ground  Station  Longitude  2" 
set  hilite  of  cd  bln  "West  2"  to  false 
set  hilite  of  cd  btn  "East  2"  to  true 
end  if 

if  Glal2  <  0  then 
multiply  GlatDeg2  by  -1 

put  GlalDeg2  into  cd  fid  "Ground  Station  Latitude  2" 
set  hilite  of  cd  btn  "South  2"  to  true 
set  hilite  of  cd  btn  "North  2"  to  false 
else 

put  GlatDeg2  into  cd  fid  "Ground  Station  Latitude  2" 
set  hilite  of  cd  btn  "South  2"  to  false 
set  hilite  of  cd  btn  "North  2"  to  ume 
end  if 
end  if 

set  lockMessages  to  false 
unlock  Screen 
end  if 

end  mouseL'p 


Script  of  Card  “I  jnk  Info" 


on  openCard 
global  GeoSat 
lock  screen 

set  hilite  of  cd  bn  "L'plink  EIRP  Unknown"  to  false 
set  hilite  of  cd  btn  "Satellite  G  T  Unknown"  to  false 
set  hilite  of  cd  btn  "Satellite  EIRP  L’nknown"  to  false 
set  hilite  of  cd  btn  "Downlink  G  T  Unknown"  to  false 
if  GeoSat  is  false  then 
show  cd  btn  "Hide  Downlink" 
else 

hide  cd  btn  "Hide  Downlink" 
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end  if 

put  "Enter  the  communications  system  parameters.  If  they  are"  &&-< 
"unknown  then  click  on  the  button  below  the  selection."-’ 
into  cd  fid  "Description" 
show  cd  fid  "Description" 
unlock  screen 
endopenCard 


on  closeCard 

global  EIRPUp£IRPDown.GTL'p,GTDown 
if  cd  fid  "L'plink  EIRP"  is  not  a  number  then 
answer  "Invalid  EIRP!  Try  again." 
pass  closeCard 

else  if  cd  fid  "Sat  1  EIRP"  is  not  a  number  then 
answer  "Invalid  EIRP!  Try  again  " 
pass  closeCard 

else  if  cd  fid  "Sat  1  G  T"  is  not  a  number  then 
answer  "Invalid  G'T!  Try  again." 
pass  closeCard 

else  if  cd  fid  "Downlink  G  T"  is  not  a  number  then 
answer  "Invalid  GT!  Try  again." 
pass  closeCard 
end  if 

put  cd  fid  "L'plink  EIRP"  into  EIRPL’p 
put  cd  nd  "Sat  1  G'T"  into  GTUp 
put  cd  fid  "Sat  1  EIRP"  into  EIRPDown 
put  cd  fid  "Downlink  GT"  into  GTDown 
end  closeCard 


Script  of  Card  "Link  Frequency  &  Access  Type" 


on  openCard 

global  commPage.access,GeoSat 
lock  screen 
if  GeoSat  is  true  then 
show  cd  fid  "Access  Label" 
show  cd  btn  "FDMA" 
show  cd  btn  TDMA" 
if  commPagc  is  false  then 
set  hilite  of  cd  btn  "FDMA"  to  false 
set  hilite  of  cd  btn  "TDMA"  to  true 
put  TDMA"  into  access 
end  if 

put  "Enter  the  uplink  and  downlink  frequencies  and  select  the"  Si&- 
"acccss  type."  into  cd  fid  "EJescription" 
show  cd  fid  "Description" 
else 

hide  cd  fid  "Access  Label" 
hide  cd  btn  "FDMA" 
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hide  cd  bto  "TDMA" 

put  "Enter  the  upUnk  and  downlink  frcquenaes 
into  cd  fid  "Description" 
show  cd  fid  "Description" 
end  if 

select  text  of  cd  fid  "L'plink  Freq" 
put  true  into  commPage 
unlock  screen 
endopenCard 


on  closeCard 

global  freqUpJreqDown.wav'‘Up,waveDown 
put  cd  fid  "Uplink  Freq"  into  freqUp 
put  cd  fid  "Downlink  Freq"  into  freqDown 
put  FreqToWaveffreqUp)  into  waveUp 
put  FreqToWaveffreqDown)  into  waveDown 
end  closeCard 


Scnpt  of  Card  "Jamming  Losses" 


on  openCard 

global  JamUpJamDown,Losses 
put  true  into  Losses 
put  false  into  JamUp 
put  false  into  JamDown 

set  hilite  of  cd  btn  "Jam  Uplink  Receiver"  to  false 
set  hilite  of  cd  btn  "Jam  Downlink  Receiver"  to  false 
put  "To  include  jamming  losses,  enter  the  approriate  jamming  power"  &&-■ 
"for  the  uplink  and  downlink  If  the  power  is  unknown  then  select" 
"'Jammer  Power  Unknown'  to  find  the  jammer  power"-> 
into  cd  fid  "Descnption" 
show  cd  fid  "Description" 
endopenCard 


on  closeCard 

global  JamUp  JamDown  JammingUpJammingEXiwn 
if  JamUp  is  true  then 

put  cd  fid  "Jammer  Power"  into  JammingUp 
else 

put  0  into  JammingUp 
end  if 

if  JamDown  is  true  then 

put  cd  fid  "Jammer  Power  2"  into  JammingDown 
else 

put  0  into  JammingDown 
end  if 

end  closeCard 
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Script  of  Card  Transmission  Losses 


on  openCard 

global  XmitLosses.GeosatlxMses 
put  true  into  Losses 
lock  screen 

set  hilite  of  cd  btn  "Include  Transmission  Losses"  to  false 
put  false  into  XmitLosses 

put  "Enter  the  losses  due  to  atmospheric  constituents  and  the”  &&-< 
"propagation  losses  due  to  scintillation  and  polarization”  &&-• 
"coupling.  To  include  these  losses  into  the  full  link  budget”  <&&-' 
"computations  dick  on  the  Tndude  Transmission  Losses'  button 
into  cd  fid  "Description" 
show  cd  fid  "Description" 
unlock  screen 
end  openCard 


on  closeCaid 

global  XmitLosses^AtmLossL'pPropLossUp^AtmLossDownPropLossDown 
global  GeoSat 

if  hilite  of  cd  bm  "Indude  Transmission  Losses”  is  true  then 
put  cd  fid  "Atmospheric  Loss  Up”  into  AtmLossUp 
put  cd  fid  "Propagation  Loss  Up”  into  PropLossL'p 
put  cd  fid  "Atmospheric  Loss  Down”  into  AtmLossDown 
put  cd  fid  "Propagation  Loss  Down"  into  PropLossDown 
put  true  into  XmitLosses 
else 

put  0  into  AtmLossUp 
put  0  into  PropLossUp 
put  0  into  AtmLossDown 
put  0  into  PropLossDown 
put  false  into  XmitLosses 
end  if 

enddoseCard 


Script  of  Card  'Rain  Losses” 


on  OpenCard 

global  RainLossesUpJ^ainLossesOown.GeoSatjainRegion 

global  legionUpjegionDownPcieentUpPercentDown 

global  RatnAttenUpJ^ttnAttenEiown.Calc.CaseXosses 

set  cursor  to  4 

put  true  into  Losses 

lock  screen 

put  empty  into  Case 

put  false  into  Calc 

put  zero  into  RainAttenUp 

put  zero  into  PerccntUp 
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put  zero  into  RainAttenDown 
put  zero  into  PerccntDown 
if  GeoSat  is  false  then 

set  hilite  of  cd  btn  ^ndude  Rain  Losses"  to  false 

put  false  into  RainLossesL'p 

put  false  into  KainLossesDown 

show  cd  btn  "Include  Rain  Losses" 

hide  cd  btn  "Include  L  plink  Rain  Losses" 

hide  cd  btn  "Include  Dow'nlink  Rain  Losses" 

hide  cd  btn  "Display  L  plink  Rain  Rate" 

hide  cd  btn  "Display  Downlink  Rain  Rate" 

put  "Rain  Region  "  into  cd  fid  "Region  Label" 

put  FindRegion(regionL  p)  into  rainRegion 

FillRegion 

put  To  include  rain  losses,  select  a  surface  point  rain" 

"rate  and  then  calculate  the  rain  loss  Then  select  'Include"  &A~' 
"Rain  Losses'  prior  to  leaving  the  card  "  into  cd  fid  “Description" 
show  cd  fid  “Description" 
else 

set  hilite  of  cd  btn  "Display  L  plink  Rain  Rate"  to  false 
set  hilite  of  cd  bln  "Display  Downlink  Rain  Rale"  to  false 
set  hilite  of  cd  btn  "Include  L  plink  Rain  Losses"  to  false 
set  hilite  of  cd  btn  "Include  Downlink  Rain  Losses"  to  false 
put  false  into  RainLossesL'p 
put  false  into  RainLossesDown 
hide  cd  btn  "Include  Rain  Losses" 
show  cd  btn  "Include  Lplink  Rain  Losses" 
show  cd  btn  "Include  Downlink  Rain  Losses* 
show  cd  btn  "Display  Lplink  Rain  Rate" 
show  cd  btn  "Display  Downlink  Rain  Rate" 
put  empty  into  cd  fid  "Region" 
repeat  with  \=4  to  15 
put  empty  into  cd  fid  x 
end  repeat 
end  if 

repeat  with  \=1  to  18 
set  hilite  of  cd  btn  \  to  false 
end  repeat 
unlock  screen 
endOpenCard 


on  closeCard 

global  RainAttenUpJLaimMtenDown.Calc.GeoSat 
global  FercentUpPercentDown.SkyNoiseTemp 
global  RainLossesLipJ^nLossesDown 
if  RainLossesLip  is  false  then 
put  zero  into  RainAttenL'p 
put  zero  into  PercentL’p 
end  if 

if  R^nLossesDown  is  false  then 
put  zero  into  RainAttenDown 
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put  zero  into  PercentDown 
else 

if  RaiaAttenDown  >  0  then 
put  num(RaiiiAttenDown)  into  loss 
put  273*(1  -  1  loss)  into  SkyNoiseTemp 
else 

put  zero  into  SkyNoiseTemp 
end  if 
end  if 

if  Calc  is  false  then 
put  zero  into  RaiaAttenUp 
put  zero  into  RainAttenDown 
put  zero  into  PercentUp 
put  zero  into  PercentDown 
end  if 

enddoseCard 


Script  of  Card  "EIRP  Parameters" 


on  openCard 

global  groundUplinkJ'CmitType.GeoSat 
lock  screen 

put  true  into  groundUplink 

set  hilite  of  cd  btn  Transmitter  Power  Unknown"  to  false 
set  hilite  of  cd  btn  "Antenna  Gain  Unknown"  to  fidse 
put  "Enter  the  transmitter  power  and  antenna  gain  and  be"  &&-' 
"sure  to  select  the  correct  umts!.  If  these  values  arc"  &A-> 
"unknown  the  click  on  the  button  below  the  selection."-’ 
into  cd  fid  "Description" 
show  cd  fid  "Description" 
if  GeoSat  is  true  then 
if  XautType  is  "Satellite"  then 
put  "Downlink  EIRP  Parameters"  into  line  2  of  cd  fid  1 
show  cd  fid  "InputBO  *^bcl" 
show  cd  fid  "InputBO" 
hide  cd  fid  "Label" 
hide  cd  fid  "Ant  Pointing  Loss" 
hide  cd  fid  "Loss  to  .Vfodoo" 
put  "Satellite  Transmitter  Output  Backoff  (dB):"-’ 
into  cu  fid  "OutputBO  Label" 
else 

put  "L'plink  EIRP  Parameters"  into  line  2  of  cd  fid  1 

hide  cd  fid  "InputBO  Label" 

hide  cd  fid  "InputBO" 

show  cd  fid  "Label" 

show  cd  fid  "  Ant  Pointing  Loss" 

show  cd  fid  "Loss  to  Motion" 

put  "Ground  Transmitter  Output  Backoff  (dB) 

into  cd  fid  utpuiBO  Label" 
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end  if 
else 

if  XnutType  is  "Satellite"  then 
hide  cd  nd  "Label" 
hide  cd  fid  "Ant  Pointing  Loss" 
hide  cd  fid  "Loss  to  Motion" 

put  "Downlink  EIRP  Parameters"  into  line  2  of  cd  fid  1 
put  "Satellite  Transmitter  Output  Backoff  (dB);"-* 
into  cd  fid  "OutputBO  Label" 
else 

show  cd  fid  "Label" 
show  cd  fid  "Ant  Pointing  Loss" 
show  cd  fid  "Loss  to  Motion" 
put  "L'plink  HRP  Parameters"  into  line  2  of  cd  fid  1 
put  "Ground  Transmitter  Output  Backoff  (dB): 
into  cd  fid  "OutputBO  Label" 
end  if 

hide  cd  nd  “InputBO  Label" 
hide  cd  fid  "InputBO" 
end  if 

unlock  Screen 

select  text  of  cd  Hd  "Xmit  Power" 
endopenCard 


Script  of  Card  "GT  Parameters" 


on  openCard 

global  satUplinkRcvrType.GeoSat 
lock  screen 

put  true  into  satUplink 

set  hilite  of  cd  btn  "System  Noise  Temperature  Unknown"  to  false 
set  hilite  of  cd  btn  "Antenna  Gain  Unknown"  to  false 
put  "Enter  the  system  noise  temprature  and  antenna  gain  and  be"  &4&-' 
"sure  to  select  the  correct  units!.  If  these  values  are"  &&-> 

"unknown  the  click  on  the  button  below  the  selection."-’ 
into  cd  fid  "Description" 
show  cd  fid  "Description" 

If  RcvrType  is  "Ground"  then 
put  "Downlink  G/T  Parameters"  into  line  2  of  cd  fid  1 
show  cd  fid  "Label" 
show  cd  fid  "Maim  Margin" 
show  cd  fid  "Ant  Pointing  Loss" 
show  cd  fid  "Loss  to  Motion" 
else 

put  "L'plink  G/T  Parameters"  into  line  2  of  cd  fid  1 

hide  cd  fid  "Label" 

hide  cd  fid  "Maim  Margin" 

hide  cd  fid  "Ant  Pointing  Loss" 

hide  cd  fid  "Loss  to  Motion" 
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1 


end  if 

unlock  screen 

select  text  of  cd  fid  "Sys  Noise  Temp" 
eadopenCard 


Script  of  Card  Transmitter  Power" 


on  openCard 

global  access.GeoSatJ'CmitType 
lock  screen 

if  XmitType  is  "Ground"  then 
show  cd  fid  "Line  Loss  Label" 
show  cd  fid  "Line  Loss" 
if  GeoSat  is  true  then 
if  access  is  "FDVtA"  then 
show  cd  fid  "Carriers  Label" 
show  cd  fid  "Carriers" 
else 

hide  cd  fid  "Carriers  Label" 
hide  cd  fid  "Carriers" 
end  if 
else 

hide  cd  fid  "Carriers  Label" 
hide  cd  fid  "Carriers" 
end  if 

put  "Enter  the  satellites  saturated  power  rating,"  &&-> 
"reserve  for  cnd-of-life  loss  and  any  feeder  losses."  &A-> 
"If  access  type  is  FDNtA,  enter  number  of  carriers."-' 
into  cd  fid  "Description" 

put  "L’plink  Transmitter  Parameters"  into  cd  fid  I 
else 

hide  cd  fid  "Line  Loss  Label" 
hide  cd  fid  "Line  Loss" 
hide  cd  fid  "Carriers  Label" 
hide  cd  fid  "Carriers" 

pul  "Enter  the  satellites  saturated  power  rating." 

"reserve  for  end-of-life  loss  and  any  feeder  losses."-’ 
into  cd  fid  "Description" 

put  "Downlink  Transmitter  Parameters"  into  cd  fid  I 
end  if 

show  cd  fid  "Description" 
unlock  screen 

select  text  of  cd  fld  "Saturated  Power" 
end  openCard 


Script  of  Ca’d  ".\ntenna  Gain" 
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OD  openCard 
global  .-VatType 
lock  screen 

if  .\ntType  is  "Satellite  Down"  then 
set  hilite  of  cd  btn  "Downlink  And  Uplink  .Antenna  Same"  to  false 
show  cd  btn  "Downlink  And  Uplink  Antenna  Same" 
show  cd  fid  "Label" 
show  cd  fid  "Off  Beam  Loss" 
show  cd  fid  "Pointing  Error" 

put  "Satellite  Downlink  .Antenna  Gain"  into  line  2  of  cd  fid  1 
put  "Enter  the  antenna  size,  efficiency,  off-center-beam  loss"  &A-> 
"due  to  satellite  motion  and  satellite  pointing  error  due  to"  SiA-' 
"satellite  attitude  control  errors.  If  the  downlink"  &<&-> 

"antenna  is  the  same  as  the  uplink  antenna,  click  on" 

"'Downlink  .And  Uplink  .Antenna  Same' "  into  cd  fid  "Description" 
else  if  .AntType  is  "Ground  Down"  then 
set  hilite  of  cd  btn  "Downlink  .And  Uplink  Antenna  Same"  to  false 
show  cd  btn  "Downlink  .And  L'plink  .Antenna  Same" 
hidecdnd  "Label" 
hide  cd  fid  "Off  Beam  Loss" 
hide  cd  fid  Tointing  Error" 

put  "Ground  Downlink  Antenna  Gain"  into  line  2  of  cd  fid  1 
put  "Enter  the  antenna  size  and  effiaency.  If  the  downlink"  &&-' 
"antenna  is  the  same  as  the  uplink  antenna,  click  on"  &&-< 
"'Downlink  .And  Uplink  Antenna  Same',"  into  cd  fid  "Description" 
else  if  .AntType  is  "Satellite  L'p"  then 
show  cd  nd  "Label " 
show  cd  fid  "Off  Beam  Loss" 
show  cd  fid  "Pointing  Error" 
hide  cd  btn  "Downlink  .And  Uplink  Antenna  Same" 
put  "Satellite  Uplink  .Antenna  Gain"  into  line  2  of  cd  fid  1 
put  "Enter  the  antenna  size,  efficiency,  off -center-beam  loss"  &&-’ 
"due  to  satellite  motion  and  satellite  pointing  error  due  to"  SlA-' 
"satel'ite  attitude  control  erron."  into  cd  fid  "Description" 
else  if  .AntType  is  "Ground  Up"  then 
hide  cd  fid  "Label" 
hide  cd  fid  "Off  Beam  Loss" 
hide  cd  fid  Tointing  Error" 
hide  cd  btn  "Downlink  And  Uplink  Antenna  Same" 
put  "Ground  Uplink  Antenna  Gain"  into  line  2  of  cd  fid  I 
put  "Enter  the  antenna  size  and  efficiency 
into  cd  fid  "Description" 
end  if 

unlock  screen 

select  text  of  cd  fid  ".Ant  Size" 
end  openCard 


Senpt  of  Card  "Receiver" 


161 


onopeoCard 
global  RcvrType 
lock  screen 

if  RcvrType  is  "Ground"  then 
put  "Downlink  Receiver"  into  line  2  of  cd  fid  1 
else 

put  "Uplink  Receiver"  into  line  2  of  cd  fid  I 
end  if 

unlock  screen 

select  text  of  cd  fid  ".\nt  Noise  Temp" 
endopenCaid 


Script  of  Card  "Quick  Budget" 


on  openCard 

global  GeoSat.dBkXosses 
lock  screen 
if  losses  is  false  then 
if  GeoSat  is  false  then 
hide  cd  btn  "Calculate" 
show  cd  btn  "General" 
show  cd  btn  "Latest  Time  in  View’ 
hide  cd  btn  "Optimum" 
hide  cd  btn  "Worst  Case" 
hide  cd  btn  "Rise" 
hide  cd  btn  "Set" 

set  hilite  of  cd  btn  "General"  to  false 
set  hilite  of  cd  btn  "Latest  Time  in  View"  to  false 
set  hilite  of  cd  btn  "Optimum"  to  false 
set  hilite  of  cd  btn  "W'orst  C xse"  to  false 
put  ei  nfy  into  line  17  of  cd  .  .d  12 
hide  ;ld  "Overall  C  N" 
else 

show  cd  btn  "Calculate" 

hide  cd  btn  "General" 

hide  cd  btn  "Latest  Time  in  View" 

hide  cd  btn  "Optimum" 

hide  cd  btn  "Worst  Case" 

hide  cd  btn  "Rise" 

hide  cd  btn  "Set" 

set  hilite  of  cd  btn  "Calculate"  to  false 
put  "Overall  Gear  Sky  C'N  (dB): "  into  line  17  of  cd  fid  12 
show  cd  fid  "Overall  C/N" 
end  if 

show  cd  btn  id  42  --  Full  Budget  Grey 
show  cd  btn  id  49  -  Jamming  Losses  Grey 
show  cd  btn  id  50  -  Rain  Losses  Grey 
show  cd  btn  id  51  --  Xmit  Losses  Grey 

put  The  numbers  that  appear  arc  from  the  last  use  of  this  card."  &A-' 
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To  calculate  the  latest  link  budget  select  from  the  options  above."-' 
into  cd  fid  "Description" 
show  cd  fid  "Description" 
set  numberFormat  to  "0  ##" 
put  -dBk  into  cd  fid  "dBk  1 " 
put  -dBk  into  cd  fid  "dBk  2" 
unlock  screen 
end  if 

put  false  into  Losses 
endopenCard 


Script  of  Card  "Noise  Bandwidth" 


on  openCard 
hide  cd  nd  “Hide- 

put  "Enter  the  noise  bandwidth  in  NfHz.  If  the  noise  bandwidth"  &&-' 
"is  unknown  then  click  on  the  'L'nknown'  button 
into  cd  fid  “Descnption" 
show  cd  fid  “Description" 
select  text  of  cd  fid  "Noise  Bandwidth" 
endopenCard 


on  closeCard 
global  noiseBWJS’oise 
put  cd  fid  “Noise  Bandwidth"  into  Bif 
put  10*log(Bir*10^6)  into  noiseBW 
put  true  into  Noise 
end  closeCard 


Script  of  Card  "Uphnk  Budget" 


on  OpenCard 

global  Glon.Glat^zL  p^t_elUpjangeL'p,d2rj2dXink,GeoSat 
global  freqUpJ'CmitPwrUp£OLReserveL'p,OutputBOUpPaihLossUp 
global  WorstETRPLT.GeoSatJ'CinitAntGainPercentUpaNumCaniers 
global  PointingLossLpPointingLossSatVfotionUpPwrUppIRPL^p 
global  XmitLineLossUppeederLossUpPwrUp 
global  FreeSpaceLossUp^tmLossL'pPropLossUpPaiaAttenL  p 
lock  screen 

put  freqLlp  into  cd  fid  “freqUp" 
if  GeoSat  is  true  then 
put  round(AzUp)  &  “°“  into  cd  fid  "AzUp" 
else 

if  Link  IS  "General"  then 
put  .AzL’p  into  cd  fid  ".AzL’p" 
else 

put  round(.AzUp)  &  "°"  into  cd  fid  “.AzL  p" 
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end  if 
end  if 

pul  rouiid(ant_eiUp)  &  into  cd  fid  "ant_elL'p" 
put  round(rangeUp)  into  cd  fid  "rangeUp" 
set  numberFonnat  to  "0  00" 
if  Glon  >  0  then 

put  Glon*r2d  &  E"  into  cd  fid  "Glon" 
else 

put  -Glon*r2d  &  "°  W"  into  cd  fid  "Glon" 
end  if 

if  Glat  >  0  then 

put  Glat*r2d  &  N"  into  cd  fid  "Glat" 
else 

put  -Glat*r2d  &  "^  S"  into  cd  fid  "Glat" 
end  if 

put  XmitPwrUp-EOLReserveL'p-OutputBOL'p  into  netpwr 

if  netpwr="0  00"  then  put  PwrUp+0  into  netpwr 

put  XmitPwrUp+0  into  cd  fid  "XmilPwrUp" 

put  -EOLReserveUp+0  into  cd  fid  "EOLReserveUp" 

put  -OutputBOUp+0  into  cd  fid  "OutputBOUp" 

put  -XmitLineLossUp+0  into  cd  fid  "XmitLineLossUp" 

put  -FeederLo8sUp+0  into  cd  fid  "FeederLossUp" 

put  XmilAntGain+O  into  cd  fid  "XmitAntGain" 

put  EIRPup+0+0  into  cd  fid  "nomFTRP" 

put  -PointingLossUpn-O  into  cd  fid  TointingLossUp" 

put  -PointingLx)SsSaLV(otionUp+0  into  cd  fid  TointingLossSatMotionUp" 

put  QRPUp  -  PointingLossUp  -  -« 

PointingLossSatMotionUp  into  WorstEIRPUP 
put  WorstEIRPUP+O  into  cd  fid  "HRPup" 

-  put  propefflossup^rainattenup  into  preciploss 

put  -FreeSpaceLossUp+-0  into  cd  fid  TreeSpaceLossUp" 

put  -AlmLossUp+0  into  cd  fid  "AtmLoss" 

put  -PropLossUp+-0  into  cd  fid  "PropLoss" 

put  -RainAttenUp^O  into  cd  fid  "RainAttenUp" 

put  FreeSpaceLossUp  +  AtmLossUp  PropLossUp  +  RainAttenUp-' 

into  PathLossUp 

pul  -PathLossUp+-0  into  cd  fid  "PathLossUp" 
if  Geosat  is  true  then 

put  "Output  Back -Off  For  Carriers  (dB):"  into  -« 

line  A  of  cd  fid  1 

put  NumCarriers  into  cd  fid  "NumCarriers" 
else 

put  "Output  Back-Off  (dB): "  into  line  4  of  cd  fid  1 
put  empty  into  cd  fid  "NumCarriers" 
end  if 

set  numberFormat  to  "0.###" 
put  PercentUp  into  cd  fid  "Percent" 
unlock  screen 
endopenCard 
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Scnpt  of  Card  T'plink  Budget  Continued 


on  opencard 

global  SatRcvr.4ntGain,SatRcvrNoiscTenip,GTL'p 
global  WorstCNLp.SatlnputBO.dBkjioiseBW 
global  PalhLossUpJamUp.upCJJammingUp.upCN 
global  WorsiEIRPLP.SatOffCenterLossL'p 
global  PoinungErrorLossUp 
lock  screen 

set  numberFormat  to  "0  00" 

put  SalRcvr.AntGain  into  cd  fid  "SatRcvrAntGatn" 

put  -SatRcvrNoiseTemp+-0  into  cd  fid  "SatRcvrNoiseTemp" 

put  GTL’p  into  cd  fid  "Nom  GT" 

put  -SatOffCenterLossUp+O  into  cd  (Id  "SatOffCenterLoss" 
put  -PointingErrorLossUp+O  into  cd  fid  TointingEnorLoss" 
put  GTL’p  -  SatOffCenterLossUp  -  PointingErrorLxwsL’p-' 
into  WorstGTLp 

put  WorstGTL^fH-O  into  cd  fid  "GTUp" 

put  WorstE3RPLP+0  into  cd  fid  "EIRPUp" 

put  -PathLossL’fH-0  into  cd  fid  "PathLossL'p" 

put  WorstGTL'p+0  into  cd  fid  "GTL'p  2" 

put  dBk+0  into  cd  fid  "dBk" 

put  -noiseBW-t-0  into  cd  fid  "noiseBW" 

put  W'orstEIRPLT  -  PathLossL'p  +  WorstGTLp  -  dBk  -  -> 

noiseBW  into  WorstCNUp 

put  WorstCNL’p+0  into  cd  fid  "CNL'p" 

put  1  ( ICPfWorstCNL'p'  10))  into  upCN 

if  JamCp  is  true  then 

put  WorstEIRPLP  -  PathLossL’p  -  JammingL'p  into  CJL’p 
put  1  ( 10^(CJL  p/ 10))  into  upCJ 
put  I0*log(  I  (upCJ  +  upCN))  into  OverallCNX’p 
else 

put  "N  A"  into  CJL'p 
put  zero  into  upCJ 
put  WorstCNL’p  into  OverallCNL'p 
end  if 

put  JamnungUp+O  into  cd  fid  "Jam  Up" 
put  CJL'p  into  cd  fid  "CJL'p" 
put  OverallCNL'p  into  cd  fid  "Overall  CNL'p" 
end  opencard 


Scnpt  of  Card  "Downlink  Budget" 


on  openCard 

global  GeoSatJLinkGlon,Glat.Gloa2Glat2/2d.d2r 
global  rangeDown.SaLXmitAntGain.SatlnputBO.^zDown 
global  freqDownAnutPwrDown£OLReserveDowu 
global  OutputBOdown^t_elDownPoinUngErrorLossDown 
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global  NumCarricnPwrDownPercentDownJ-eedcrLossDown 
global  FreeSpaceLossDown^tmLossDownJlaiiLAuenDown 
global  PropLxMsDownPathLossDown£IRPDown 
global  SatOffCcnlerLossDown.WorsiEIRPDown 
lock  screen 

put  freqDown  into  cd  fid  "freqDown" 
put  round(ant_elDown)  &  into  cd  fid  "ant_dDown" 
put  roundfrangeDown)  into  cd  fid  "rangeDown" 
if  GeoSat  is  true  then 

put  round(.-\zDown)  &  into  cd  fid  "AzDown" 
set  numberFormat  to  "0  00" 
if  Glon2  >  0  then 

put  Glon2*r2d  &  E"  into  cd  fid  "Glon" 
else 

put  -Glon2*r2d  &  W"  into  cd  fid  "Glon" 
end  if 

if  Glat2  >  0  then 

put  Glat2*r2d  &  "“  N"  into  cd  fid  "Glat" 
else 

put  -Glat2*r2d  &  S"  into  cd  Od  "Glat" 
end  if 

put  "Satellite  Input  Back-Off  (dB)"  into  line  2  of  cd  fid  I 
show  cd  fid  "SatInputBO" 
put  -SatlnpulBO+O  into  cd  fid  "SatInputBO" 
else 

if  Link  is  "General"  then 
put  AzDown  info  cd  fid  "AzDown" 
else 

put  roundf  AzDown)  &  into  cd  fid  "AzDown" 

end  if 

set  numberFonnat  to  "0  00" 
if  Glon  >  0  then 

put  Glon*r:d  &  E"  into  cd  Bd  "Glon" 
else 

put  -Glon*r2d  &  W"  into  cd  fid  "Glon" 
end  if 

if  Glat  >  0  then 

put  Glat*r2d  &  "“  N"  into  cd  fid  "Glat" 
else 

put  -Glat*r2d  &  ""  S"  into  cd  Bd  "Glat" 
end  if 

put  empty  into  line  2  of  cd  Bd  1 
put  zero  into  SatInputBO 
hide  cd  Bd  "SatInputBO” 
end  if 

put  XmitPwrDown+O  into  cd  Bd  "XmitPwrDown" 
put  -EOLReserveDown+O  into  cd  Bd  "EOLReserveDown" 
put  -FeederLossDown+0  into  cd  Bd  "FeederLxissDown" 
put  SaLXmitAntGain-i-0  into  cd  Bd  "SaLXmiLAntGain" 
put  -OutputBOdown-i-O  into  cd  Bd  "OutputBOdown" 
put  EIRTOown-i-O  into  cd  Bd  "etlblKP" 
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puc  -SatOffCeaterLossDowD+O  inio  cd  fid  "SatOffCenierLoss* 
put  -PointingEnwLossDown-t-O  into  cd  fid  TointingExTorLoss" 
put  HRPDown  -  SatOffCenterLossDown  -  PointingErrorLossDown-' 
into  WorstEIRPDown 

put  WorstEIRPDown  +  0  into  cd  fid  "EJRPDown" 

put  -FreeSpaceLossDown+O  into  cd  fid  TreeSpaceLossDown" 

put  -AtmLossDown+O  into  cd  fid  "AtmLossDown" 

put  -Rain.AttenDown+0  into  cd  fid  "RaiaAttenDown" 

put  -PropLossDown+0  into  cd  fid  TropLossDown" 

if  Geosat  is  true  then 

put  "Output  Back -Off  For  Garners  (dB):"  into  -> 

line  6  of  cd  fid  1 

put  NumCamers  into  cd  fid  "N’umCamers" 
else 

put  "Output  Back -Off  (dB):"  into  line  6  of  cd  fid  1 
put  empty  into  cd  fid  "NumCamers" 
end  if 

put  FreeSpaceLossDown  +  AtmLossDown  -*■  RainAttenDown  +  PropLossDown-' 
into  PathLossDown 

put  -PathLossDown  into  cd  fid  "PathLossDown" 
set  numberFormat  to  "0  ###" 
put  PercentDown  into  cd  fid  "Percent" 
unlock  screen 
end  openCatd 


Scnpt  of  Card  "Downlink  Budget  Continued" 


on  opeocard 

global  PoinUngLossDownRain.AttenDown,GooSat 

global  MaintMarginDown.GTDown.WorslEIRPDownPalhLossDown 

global  Rcvr.AntGain.dBkjKMseBW.upCNJammingDown 

global  Rcorrcctfactordown.SkyNoiseTemp.upCJJamDown 

global  RcvrNoiseTempPointingLossSaLVlotiooDown 

lock  screen 

set  numberFormat  to  "OOO" 

if  SkyNoiseTemp  is  empty  then  put  zero  into  SkyNoiseTemp 
put  SkyNotseTemp+O  into  cd  fid  "SkyNoiseTemp" 
put  Rcvr.AntGain-t-O  into  cd  fid  "RcvrAntGain" 
if  RcvrNoiseTemp  is  not  empty  then 
put  num(RcvrNoiseTemp)  SkyNoiseTemp  into  Temp 
put  10*log(Teinp)  into  RcvrTemp 
put  -RcvrTcmp+O  into  cd  fid  "RcvrNoiseTemp" 
put  RcvrAntGain  -  RcvrTemp  into  GT 
else 

put  GTDown  into  GT 
end  if 

put  GT  -  PoinUngLossDown  -  VfainLMarginDown  -  -> 
PointingLossSatMotionDown  into  WorstGT 
put  GT *-0  into  cd  fid  "terminalGT" 
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put  -PointingLo9sOown-*0  into  cd  fid  ToiotingLossIDown” 

put  -NlaintMarginDown-t-O  into  cd  fid  ”MnintVlargin” 

put  -PointingLossSaLVlotionEtown+O  into  cd  fid  -> 

"PointingLxjssSalVfotionDown" 

put  WorstGT+O  into  cd  fid  "GTDown" 

put  WorstEIRPDown+O  into  cd  fid  "EIRPDown" 

put  -PathLossDown+0  into  cd  fid  TathLossDown" 

put  WorstGT-t-O  into  cd  fid  "GTDown  2" 

put  -dBk+0  into  cd  fid  "dBk" 

put  -noiseBW+0  into  cd  fid  "noiscBW" 

put  WorstEIRPDown  +  WorstGT  -  dBk  -  PathLossDown  -  -i 

noiseBW  into  WorstCNDown 

put  WorstCNDown+0  into  cd  fid  "WorstCNDown" 

put  JammingDown-^O  into  cd  fid  "Jam  Down" 

put  1  ( lO'fWorstCNDown/ 10))  into  downCN 

if  JamDown  is  true  then 

put  WorstEIRPDown  -  PathLossDown  -  JammingDown  into  CJDown 
put  1  (lO^fCiDowa  10))  into  downCJ 
put  10*log(l/(downCI  downOO)  into  OverallCNTDown 
else 

put  "N  A"  into  CJDown 
put  zero  into  downCJ 
put  WorstCNDown  into  OverallCNTDown 
end  if 

put  CJDown  into  cd  fid  "CJDown" 

put  OverallCNDown+0  into  cd  fid  "Overall  CNDown" 

if  GeoSat  is  true  then 

put  10*log(l  (upCN  +  downCN  +  downCJ  +  upCJ))  into  WorstCN’Overall 
put  WorstCNOverall+O  into  cd  fid  "WorstCNOverall" 
show  cd  fid  "WorstCNOverall" 
show  cd  fid  "WorstCNOverall  Label" 
else 

hide  cd  fid  ’W  orstCNOverall" 
hide  cd  fid  "W'orstCNOverall  Label" 
end  if 

unlock  screen 
endoponcard 


Script  of  Card  "Time  Step" 


on  openCard 

global  timeZaiie.timeAdjust,begin4)eriod 
lock  screen 

put  the  short  date  into  cd  fid  "Date  of  View" 
put  period  into  localPeriod 
convert  localPeiiod  to  short  time 
put  TimeChangeOocalPeriod)  into  cd  fid  Teriod" 
if  begin  is  true  then 
set  hilite  of  cd  btn  "LST"  to  true 
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set  hilite  of  cd  btn  "DST"  to  false 
set  hilite  of  cd  btn  "Zulu"  to  false 
put  dmeZone  into  timeAdjust 
put  the  time  into  localTime 

put  TimeChangeflocalTime)  into  cd  fid  "Time  to  Begin" 
put  TimeChangeflocalPeriod)  into  cd  fid  "View" 
end  if 

put  'The  lewing  Time'  is  the  total  time  that  the  ground  trace"  &&-' 

"will  run  The  'Date  of  View'  and  Time  to  begin  View'  will"  &A-> 
"determine  the  starting  point  for  the  ground  trace  The  Time  Step'"  &A-' 
"sets  the  interval  between  satellite  movements  \^'heo  modifying"  &&-> 
"times  ensure  the  entry  is  in  HH  VfM  format.  Dont  forget  the  colon!"  &&-' 
"linsure  the  date  is  in  MM  DD/YY  format  "  into  cd  fid  "Description" 
show  cd  fid  "Description" 
unlock  screen 
end  openCard 


on  closeCaid 

global  view,  penod.  step,  dt,  GHAdeg,  hourRequest.timeAdjust 
put  3029572800  into  JDOsec 
put  cd  fid  "Date  of  View"  into  dateRequcst 
convert  dateRequest  to  seconds 
put  char  1  to  2  of  cd  fid  Time  to  Begin"  into  HH 
put  char  4  to  5  of  cd  fid  Time  to  Begin"  into  MM 
put  HH  +  timeAdjust  +  (M\T60)  into  LT 
put  LT  *  3600  into  hourRequest 
add  dateRequest  to  hourRequest 
put  ((dateRequest  -  JDOsec)/(24*3600))  into  Jday 
put  100  4602346  +  0.985647348  *  Jday  +  15  041068  *  LT  into  GHAlong 
put  (GH.\long  360  -  trunc(GH,Along'360))  *  360  into  GHAdeg 
If  GlLAdeg  <  0  then  add  360  to  GRAdeg 
if  cd  fid  "View"  is  empty  then 
put  period  into  view 
else 

put  char  4  to  5  of  line  1  of  cd  fid  "View"  into  it 
put  60*it  into  MM 

put  char  I  to  2  of  line  1  of  cd  fid  "View"  into  it 
put  3600*it  into  HH 
put  HH  +  MM  into  view 
end  if 

if  dt  =  empty  then  put  180  into  dt 
if  step  empty  then 
put  "3  0  Minute"  into  step 
set  hilite  of  cd  btn  "3  0  Minute"  to  true 
set  the  hilite  of  card  button  "6.0  Minute"  to  false 
set  the  hilite  of  card  button  "9  0  Minute"  to  false 
set  the  hilite  of  card  button  "15  Minute"  to  fdse 
set  the  hilite  of  card  button  "15  Vtinute"  to  false 
end  if 

end  closeCard 
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Script  of  Card  "Ground  Trace' 


on  openCard 

global  hrjiiin,sec,orbitPage,groundPage,begin,GHAdegAlap 
global  mail  on  mini  j)n  maxi  af  mini  .at-al  on  hi  on  al  at  hi  at  swalh 
global  plotAll 
lock  screen 
if  begin  is  true  then 

set  the  hilite  of  card  button  "North  America”  to  false 

set  the  hilite  of  card  button  "South  America"  to  false 

set  the  hilite  of  card  button  "Europe"  to  false 

set  the  hilite  of  card  button  "Africa"  to  false 

set  the  hilite  of  card  button  "Middle  East"  to  false 

set  the  hilite  of  card  button  "Asia"  to  false 

set  the  hilite  of  card  button  "SE  Asia  &  Australia"  to  false 

set  the  hilite  of  card  button  "North  Atlantic"  to  false 

set  the  hilite  of  card  button  "South  Atlantic"  to  false 

set  the  hilite  of  card  button  "Indian  Ocean"  to  false 

set  the  hilite  of  card  button  "North  Pacific"  to  false 

set  the  hilite  of  card  buttoi.  "South  Pacific"  to  false 

set  the  hilite  of  card  button  "North  Pole"  to  false 

set  the  hilite  of  card  button  "South  Pole"  to  false 

set  the  hilite  of  card  button  "Global"  to  true 

-  Choc  le  map  for  default 

put  "Global  Map"  into  Map 

-  Set  Swath  default 

set  hilite  of  cd  btn  "Ground  Swath"  to  false 

put  false  into  swath 

put  false  into  plotAll 

hide  cd  btn  "Continuous" 

hide  cd  btn  "Individual" 

-  Set  Lai  Lon  limits 
put  pi  into  maxLon 
put  -pi  into  minLon 
put  (pi  2)  into  maxLat 
put  -(pi  2)  into  minLal 
--  Calc  scale  parameters 
put  511/2  into  aLon 

put  5(X7/(2*pi)  into  bLoo 
put  301/2  into  aLat 
put  -25S/pi  into  bLat 
put  false  into  begin 
end  if 

put  GHAdeg  into  cd  fid  "GHA" 

put  "Select  a  map  for  view  and  if  required  select  'Ground  Swath'"  SiA-' 
"to  display  the  area  in  the  satellites  view  based  upon  the"  &&-> 
"ground  stations  antenna  elevation."  into  cd  fid  Tiescription" 
show  cd  fid  "Dcscripdoo" 
unlock  screen 
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end  openCard 


Scnpt  of  Card  "Global  Map" 


on  openCard 

show  bg  btn  "Ground  Trace" 
show  bg  btn  "Rewind" 
show  bg  btn  "Print  Card" 
show  bg  fid  Time  Step  Label" 
show  bg  fid  Time  Step" 
show  bg  fid  Time  Label " 
show  bg  fid  Time" 
end  openCard 


Script  of  Card  "Geo  Global " 


on  openCard 

global  Glon,Glat,Glon2,Glat2.GeoSatLonJatJon.d2rj2d 
global  z,r JRe,ant_el ant_el2,t  1  ,t2.dphi ,e  1  ,e2,e3 
global  n  I  ji2ai3.p  1  .p2.p3.earth_e.cEl.sH^t_elUpant_elDown 
global  lonVJatVaL^naLat.bLon.bLaf.cLon.cLat.oldXv.oldYv 
global  xS.yS.gxS.gyS,\V.yVAlapJ1otTypc.orbitPagc 
global  rangeL'pxangeDown^AzUp^AzDown.groundPage 
if  groundPagc  is  true  then 
hide  cd  btn  id  1 1  --  Link  Info  Gray 
else 

show  cd  btn  id  1 1  --  Link  Inlo  Gray 
end  if 

put  true  into  orbilPage 
set  cursor  to  busy 

put  The  field  of  view  for  this  satellite  is  based  upon"  &&-• 
"the  greatest  antenna  elavation  of  the  two  ground  stations."  -< 
into  cd  fid  "Descriptioo" 
show  cd  fid  "Description" 
put  ant_el  into  ant.el  1 
if  ant_el2  >  ant_el  then 
put  ant_ei2  into  ant_el 
end  if 

-  Calc  scale  pmameters 
hide  bg  btn  "Satellite  2" 
put  "Global  Map"  into  Map 
put  51 1  2  into  aLon 
put  507  (2 •pi)  into  bLon 
put  301  2  into  aLat 
put  -255/pi  into  bLat 
put  aLon  -*■  bLoa*Gloo  into  g\Sl 
put  aLat  +  bLat*Glat  into  gySl 
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put  aLon  bLon'GeoSatLon  into  xSat 
put  aLon  +  bLoo*Gloa2  into  gxS2 
put  aLat  -►  bLat*Glat2  into  gyS2 

set  the  loc  of  bg  btn  "Ground  Uplink"  to  round(gxS  1 ) jround(g>S  1 ) 

set  the  loc  of  bg  btn  "Ground  Downlink"  to  round(gxS2)jound(gyS2) 

set  the  loc  of  bg  btn  "Satellite  1"  to  round(xSat).151 

put  0  into  lat 

put  GeoSaiLon  into  Ion 

choose  brtish  tool 

set  brush  to  32 

set  pattern  to  12 

Swath_V\  idth  --  Handler  in  stack  script, 
repeat  with  j  =  0  to  30 
put  j  ‘dphi  into  phi 
put  cos(phi)  into  cphi 
put  sin(phi)  into  sphi 

put  tl*pl  t2*(cphi*nl  -*•  8pl’!*el)  into  xV'iew 
put  tl*p2  -t-  t2*(cphi*n2  sphi‘e2)  into  yView 
put  tl*p3  +  t2*(cphi*a3  +  sphi*e3)  into  zView 
put  aSin(zView  r)  into  latV 
put  aTan2(xV  iew,yView)  into  lon\' 
put  "Fit  .d  of  View"  into  PlotType 
PlotMap  --  Handler  in  stack  scnpt 
if  J  =  0  then 
put  \V  into  oldXv 
put  yV  into  oldVv 
end  if 

if  absloldXv  -  xV)  <  250  then 

drag  from  round(oldXv)jtxuid(oldYv)  to  rouiid(xV)/ound(yV) 
else 

Interpolate 
end  if 

put  xV  into  oldXv 
put  vV  into  oldW 
end  repeat 
choose  browse  tool 
put  r*cos(GeoSatLon)  into  ox 
put  r*sin(GeoSalLon)  into  oy 
put  zero  into  oz 

put  GeodedicLat(Giat)  into  GeoLat 

^t  GeodedicLat(Glat2)  into  G«oLat2 

put  GeodcdicR(GeoLat)  into  R_Oblong 

put  GeodedicR(GeoLat2)  into  R_Obioag2 

put  cos(G«oLat)*co8(Gloo)  into  gx 

put  cos(GeoLat)*sin(Glon)  into  gy 

put  sinfGeoLat)  into  gz 

put  ox*gx  +  oy*gy  +  oz*gz  into  r_on_R 

put  co8(GeoLat2)*cos(Glon2)  into  gx2 

put  cos(Gx)Lat2)*sin(Glon2)  into  gy  2 

put  sin(GeoLat2)  into  gz2 

put  ox*gx2  oy*gy2  oz*gz2  into  r_on_R_2 


172 


if  r_on_R  >=  R_Oblong  then 
put  asin(r_on_Rr)  into  theoretical_el 
put  atan((sin(theoretical_el)  -  R_Oblong  r) 
cos(theoretical_el))  into  true_el 
if  tnje_el  >=  ant_el  1  then 
put  SlantRange(rJi_Oblong,true_el)  into  rangeL'p 
put  Glon  -  GeoSatLon  into  deljon 
put  Azimuth  (del_lon.Glat,GeoSatLon)  into  AzL'p 
put  true_el*r2d  into  ant_elL’p 
else 

answer  The  uplink  stauon  is  not  in  view  of  the  Satellite!" 

"Either  move  the  ground  station,  move  the  satellite  or"  &&-’ 
"modify  the  antenna  elevation." 
put  "N  A"  into  ant_elUp 
put  "N'  .A"  into  AzUp 
put  false  into  orbitPage 
show  cd  bm  id  1 1  -  Link  Info  Gray 
end  if 
else 

answer  "The  uplink  station  is  not  in  view  of  the  Satellite!"  &&-' 
"Either  move  the  ground  station  or  move  the  satellite." 
put  "N  .A"  into  ant_elL  p 
put  "N  A"  into  AzL’p 
put  false  into  orbitPage 
show  cd  btn  id  1 1  --  Link  Info  Gray 
end  if 

if  r_on_R_2  >=  R_Oblong2  then 
put  asin(r_on_R_2  r)  into  theoretical  _el  2 
put  atan((sin(theoreucal_el2)  -  R_Oblong2  r)/-* 
cos( theoretical _el2))  into  true_el2 
if  true_el2  >=  ant_el2  then 

put  SlantRangefr J^_Oblong2,tnie_el2)  into  rangeDown 
put  Glon2  -  GeoSatLon  into  del_lon2 
put  .Azimuth  (del_lon2.Glat2, GeoSatLon)  into  AzDown 
put  true_el2*r2d  into  ant_eIDown 
else 

answer  "The  downlink  station  is  not  in  view  of  the  Satellite!"  &&-' 
"Either  move  the  ground  station,  move  the  satellite  or"  &A-' 
"modify  the  antenna  elevation." 
put  "N/A"  into  ant_elDowTi 
put  "N/A"  into  AzDown 
put  false  into  orbitPage 
show  cd  btn  id  1 1  --  Link  Info  Gray 
end  if 
else 

answer  "The  downlink  station  is  not  in  view  of  the  Satellite!"  SlA-^ 

"Either  move  me  ground  station  or  move  the  satellite." 

put  "N  .A"  into  ant_elDown 

put  "N  A"  into  AzDown 

put  false  into  orbitPage 

show  cd  bm  id  1 1  -  Link  Info  Gray 
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end  if 

hide  cd  fid  "Description" 
set  numberFormat  to  "0.##" 
put  AzUp  into  cd  fid  "Azimuth  Up" 
put  ant_elUp  into  cd  fid  "Elevation  Up" 
put  AzDown  into  cd  fid  "Azimuth  Down" 
put  ant_elDown  into  cd  fid  "Elevation  Down" 
endopenCard 


on  closeCard 
choose  select  tool 
doMenu  "Revert" 
choose  browse  tool 
endcJoseCard 


APPENDIX  E:  MAJOR  BUTTON  SCRIPTS 


Inclusion  of  all  of  the  button  scnpts  was  prohibitive  The  first  eight  scnpts  listed  represent  a 
generalized  v  ersion  of  the  major  navigation  buttons.  The  remainder  are  significant  enough  that  their 
inclusion  was  necessarv  Wherever  possible,  scnpts  of  similar  buttons  on  a  specific  card  have  been 
normalized. 


Scnpt  of  Button  "<  Button  Name  >"  of  <  Card  or  Background  >  "<  Card  or  Background  Name  >" 


on  mouseUp 
global  Error 
if  Eirror  is  true  then 

answer  "You  have  an  invalid  entry  '  Try  again." 

pass  mouseUp 
else 

go  to  cd  "<  Card  Name  >" 
end  if 

end  mouseL'p 


ScTipt  of  Button  "Pnnt  Card"  of  <  Card  or  Background  "<  Card  or  Background  Name  >" 


on  mouseUp 
do.Menu  "Print  Card" 
end  mousel  p 


Scnpt  of  Card  Button  "<  Button  Name  >"  of  Card  "<  Card  Name  >" 


on  mouseL'p 

answer  "Not  an  opuon  from  this  card  " 
end  mouseL'p 


Scnpt  of  Button  "Help  Me"  of  <  Card  or  Background  "<  Card  or  Background  Name  >1" 


on  mouseL'p 
global  Goal 

put  the  short  name  of  this  cd  into  Goal 
go  to  cd  "Help"  &&  Goal 
end  mouseUp 
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Scnp(  of  Background  Bunon  Tietum"  of  Background  "Tfelp' 


on  mouseUp 
global  Goal 

visual  effect  Shrink  to  top 
go  to  cd  Goal 
end  mousel  p 


Script  of  Button  "<  Button  Name  >"  of  Card  "<  Help  Card  Name  >" 


on  mouseUp 

visual  effect  Shrink  to  top 
go  to  "<  Card  Name  >" 
end  mouseUp 


Script  of  Background  Button  "Rewind"  of  Background  "<  Map  Background  Name  >" 


on  mouseUp 
global  Map 

if  the  short  name  of  prev  cd  =  map  then 
go  prev 

else  go  to  cd  "Ground  Trace" 
end  mouseUp 


Script  of  Background  Button  "Forward"  of  Background  "<  Map  Background  Name  >" 


on  mouseUp 
global  Map 

if  the  short  name  of  prev  cd  =  map  then 
go  next 

else  go  to  cd  "Ground  Trace" 
end  mouseUp 


Script  of  Card  Button  "Semimajor  Axis"  of  Card  "\Miat  You  Know  of  Orbits" 


on  mouseUp 

global  GeoSat,commPage,groundPage,begin,orbitPagc.'nV>’oise 

put  false  into  commPage 

put  false  into  orbitPage 

put  false  into  groundPage 

put  false  into  TIV 

put  true  into  begin 
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put  false  into  GeoSat 
put  false  into  Noise 
set  hilite  of  me  to  true 

set  the  hilite  of  card  button  "Perigee  and  Apogee"  to  false 
set  the  hilite  of  card  button  "Charlie  Elements"  to  false 
set  the  hilite  of  card  button  "Geostationary  "  to  false 
go  to  aird  "Semimajor  Axis  Card" 
end  mouseL  p 


Script  of  Card  Button  "Perigee  and  Apogee"  of  Card  "What  \'ou  Know  of  Orbits" 


on  mouseUp 

global  GeoSat.commPage.groundPage.begin.orbitPage.TI V ^oise 

put  false  into  commPage 

put  false  into  orbitPage 

put  false  into  groundPage 

put  false  into  TIV 

put  true  into  begin 

put  false  into  GeoSat 

put  false  into  Noise 

set  hilite  of  me  to  true 

set  the  hilite  of  card  button  "Semimajor  Axis"  to  false 
set  the  hilite  of  card  button  "Charlie  Elements"  to  false 
set  the  hilite  of  card  button  "Geostationary"  to  false 
go  to  card  Tengee  and  Apogee  Card" 
end  mousel'p 


Script  of  Card  Button  "Charlie  Hemenls"  of  Card  "i^Tiat  You  Know  of  Orbits" 


on  mouseUp 

gl  obal  GeoSat  .commPage  .groundPage  .begi  n  .orbi  tPagc  .T1 V  JSoi  sc 

put  false  into  commPage 

put  false  into  orbitPage 

put  false  into  groundPage 

put  false  into  TIV 

put  true  into  begin 

put  false  into  GeoSat 

put  false  into  Noise 

set  hilite  of  me  to  true 

set  the  hilite  of  card  button  "Semimajor  Axis"  to  false 
set  the  hilite  of  card  button  "Perigee  and  Apogee"  to  fsdse 
set  the  hilite  of  card  button  "Geostationary  "  to  false 
go  to  card  "Charlie  Elements  Card" 
end  mouseL'p 


Script  of  Card  Button  "Geostationary"  of  Card  ’YV'hat  You  Know  of  Orbits" 
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on  mouscL’p 

gl  obal  GeoSai  .groundPage  ,orbi  tPage  .commPage  Noi  se 

put  true  into  GeoSat 

put  false  into  groundPage 

put  false  into  orbitPage 

put  false  into  commPage 

put  false  into  Noise 

set  hilite  of  me  to  true 

set  the  hilite  of  card  button  "Semimajor  Axis"  to  false 
set  the  hilite  of  card  button  "Perigee  and  Apogee"  to  false 
set  the  hilite  of  card  button  "Charlie  Elements"  to  false 
go  to  card  "Geostationary  Card" 
end  mouseUp 


Script  of  Card  Button  "Orbital  Hements"  of  Card  "Semimajor  Axis  Card" 


on  mouseL  p 
set  the  cursor  to  4 
lock  screen 

global  ecc.param  J^n JRmax  Jle.a.b^snOeg.perDeg^ncDeg jnu Jir jnin jec 
global  a.\lt.  p.Alt,  penod£rTor 
if  Error  is  true  then 

answer  "You  have  an  invalid  entry !  Try  again  " 
pass  mouseUp 
else 

put  line  1  of  card  field  "a"  into  a 
put  line  1  of  card  field  "ecc"  into  ecc 
put  line  1  of  card  field  "asnDeg"  into  asnDeg 
put  line  1  of  card  field  "perDeg"  into  perDeg 
put  line  1  of  card  field  "incDeg"  into  incDeg 
if  a  IS  not  a  number  then 
answer  "Invalid  Semimajor  Axis.  Try  Again!" 
put  "Enter  Semimajor  Axis  in  Kilometers"  into  cd  fid  "Dcscnption" 
show  cd  fid  "Description" 
pass  mouseUp 
else  if  a  <  6378  then 

answer  "Tour  orbit  passes  through  the  Earth  Try  .Again'" 
put  "Enter  Semimajor  Axis  in  Kilometers"  into  cd  fid  "Descnplion" 
show  cd  fid  "Description" 
pass  mouseUp 
end  if 

if  ecc  IS  not  a  number  or  ecc  <  0  or  ecc  >=  1  then 
answer  "Not  a  valid  cccentnaty  Try  Again'" 
put  "Enter  the  Eccentncjty "  into  cd  fid  "Desenphon" 
put  "Os  e  <  1"  into  line  2  of  cd  fid  "DesenpOon" 
show  cd  fid  "Description" 
pass  mouseUp 
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end  if 

if  incDeg  is  ncx  a  number  or  incDeg  <  0  or  incDeg  >  180  then 
answer  "Noc  a  valid  inclination.  Try  .Again'" 
put  "Enter  The  Inclination."  into  cd  fid  "Description" 
put  "0°  to  180°"  into  line  2  of  cd  fid  "Description" 
show  cd  fid  "Descnption" 
pass  mouseUp 
end  if 

if  asoDeg  is  not  a  number  or  asnDeg  <  0  or  asnDeg  >  360  then 
answer  "Not  a  valid  Longitude  of  the  Ascending  Node.  Try  Again!" 
put  "Enter  The  Longitude  of  the  Ascending  Node  "  into  cd  fid  "Descnpuon" 
put  "0°  to  360°  to  the  East"  into  line  2  of  cd  fid  "Descnption" 
show  cd  fid  "Descnption" 
pass  mouseUp 
end  if 

if  perDeg  is  not  a  number  or  perDeg  <  0  or  perDeg  >  360  then 
answer  "Not  a  valid  .Argument  of  Perigee  Try  Again!" 
put  "Enter  The  .Argument  of  Perigee"  into  cd  fid  “Description" 
put  "0°  to  360°  to  the  East"  into  line  2  of  cd  fid  "Descnption" 
show  cd  fid  "Description" 
pass  mouseUp 
end  if 

put  a*(  I  -  ecc)  -  Re  into  p.Alt 
put  a*(  I  +  ecc)  -  Re  into  aAlt 
put  p.Alt  +  Re  into  Rnun 
if  Rmin  <  6378  then 
answer^ 

"Invalid  eccenmaty.  the  satellite  will  hit  the  earth.  Try  again" 
select  text  of  cd  fid  "ecc" 
exit  mouseUp 
end  if 

put  a.Alt  +  Re  into  Rmax 

put  Rmin*(  1  -*-ecc)  into  param 

put  a*sqrt(  1  -  ecc*ecc)  into  b 

put  2*pi*sqrl(a*a*amu)  intopenod 

put  iruncipcnod)  into  intP 

put  intP  div  3600  in'o  hr 

put  (intP  -  3600*hr)  div  60  into  min 

put  (iniP  -  3600*hr  -  60*min)  into  sec 

go  to  card  "Orbital  Elements" 

set  numberFonnat  to  "0  #" 

put  a  &  "  Km"  into  line  1  of  card  Held  "a" 

set  numberFonnat  to  "0  ###" 

put  ecc  into  tine  1  of  card  field  "ecc" 

set  numberFonnat  to  "0  #' 

put  p.Alt  &  "  Km"  into  line  1  of  card  field  "p.Alt" 

put  a. Alt  A  "  Km"  into  line  1  of  card  field  "a.Alt" 

put  asnDeg  &  ’  °"  into  line  1  of  card  field  "asnDeg" 

put  perDeg  "  °"  into  line  1  of  card  field  "perDeg" 

put  incDeg  &  "  °"  into  line  1  of  card  field  "incDeg" 

set  numberFonnat  to  "0  " 
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&  sec  &  "  HH.MM  SS'into 


if  sec  >=  10  then 
put  hr  &  "  "  &  min  &  "  " 
line  1  of  card  field  Time" 
else 

put  hr  &  "  "  &  min  &  "  ■  &  "0"  &  sec  &  "  HH:MM;SS"into  - 
line  1  of  card  field  Time" 
end  if 
end  if 

end  mouseL  p 


Scnpt  of  Card  Button  "Orbital  Elements"  of  Card  "Perigee  and  Apogee  Card" 


on  mouseUp 
set  the  cursor  to  4 

global  ecc.param JRmin  Jlma.T  JRe.a.b^nOeg.perDeg  jneOeg jnu Jir jmn jec 
global  aAlt,  pAJt,  period.  Error 
if  Error  is  true  then 

answer  Tou  have  an  invalid  entry!  Try  again  " 
pass  mousel'p 
else 

lock  screen 

put  line  1  of  card  field  "pAlt"  into  pAlt 
put  line  1  of  card  field  "a\lt"  into  a.\lt 
put  line  I  of  card  field  "asnOeg"  into  asnOeg 
put  line  1  of  card  field  "perDeg"  into  perDeg 
put  line  1  of  card  field  "incDcg"  into  incOeg 
if  pAlt  >  a.Alt  then 
put  p.Alt  into  temp 
put  a\lt  into  pAlt 
put  temp  into  a.\lt 
put  p.Alt  into  cd  fid  "p.Alt" 
put  aAlt  into  cd  fid  "aAlt" 
end  if 

if  p.Alt  is  not  a  number  or  pAlt  <  0  then 
answer  "Not  a  valid  .AlUtude  of  Pengee  Try  Again!" 
put  ".Altitude  of  Pengee  in  Kilometers"  into  cd  fid  "Descnption" 
show  cd  fid  "Desenpaon" 
pass  mouseUp 
end  if 

if  aAlt  IS  not  a  number  or  aAlt  <  0  then 
answer  "Not  a  valid  .Altitude  of  .Apogee  Try  .Again!" 
put  "  Altitude  of  Apogee  in  Kilometers  "  into  cd  fid  "DesenpUon" 
show  cd  fid  "Descnptioo" 
pass  mouseL'p 
end  if 

if  incDeg  IS  not  a  number  or  incDeg  <  0  or  imOeg  >  180  then 
answer  "Not  a  valid  indinauon  Try  .Again 
pul  "Enter  The  Inclination  "  into  cd  fid  "E>escnption” 
put  "0°  to  180°"  into  line  2  of  cd  fid  "Descnption" 


180 


show  cd  fid  "Description" 
pass  mouseUp 
end  if 

if  asnDeg  is  not  a  number  or  asnDeg  <  0  or  asnDcg  >  360  then 
answer  "Not  a  valid  Longiride  of  the  Ascending  Node.  Try  Again!" 
put  "Einter  The  Longitude  of  the  Ascending  Node."  into  cd  fid  "Description" 
put  ''0°  to  360°  to  the  East"  into  line  2  of  cd  fid  "Description" 
show  cd  fid  "Desenpuon" 
pass  mouseL'p 
end  if 

if  perDeg  is  not  a  number  or  perDeg  <  0  or  perDeg  >  360  then 
answer  "Not  a  valid  .Argument  of  Pengee.  Try  Again!" 
put  "Enter  The  .Argument  of  Perigee"  into  cd  fid  "Description" 
put  "0°  to  360°  to  the  East"  into  line  2  of  cd  fid  "Desenption" 
show  cd  fid  "Etescription" 
pass  mouseL'p 
end  if 

put  p.Alt  +  Re  into  Rmin 

put  a.\lt  +  Re  into  Rmax 

put  Rmia  Rnia.\  into  ratio 

put  ( 1  -  ratio)/  ( 1  +  ratio)  into  ecc 

put  Rmin*(  Uecc)  into  param 

-■  r  =  param  ( 1  +  ecc*cos(  theta)) 

put  (p.Alt  +  aAlt  +  2*Re)-2  into  a 

put  a*sqrt(  1  •  ecc’ecc)  into  b 

put  2*pi*sqrt(a*a*a,mu)  into  period 

put  inmc( period)  into  intP 

put  intP  div  360^  into  hr 

put  (intP  -  3600'hr)  div  60  into  mm 

put  (intP  ■  3600*hr  -  60*min)  into  sec 

go  to  card  "Orbital  Elements" 

set  numberFormat  to  "0.#" 

put  a  &  "  Km"  into  line  1  of  card  field  “a" 

set  numberFormat  to  "0  ###" 

put  ecc  into  line  1  of  card  Held  "ecc" 

set  numbcrFomiat  to  "0  #" 

put  p.Alt  &  "  Km"  into  line  1  of  card  field  "pAlt" 

put  aAlt  &  "  Km"  into  line  1  of  card  field  "aAIt" 

put  asnDeg  &  "  °"  into  line  1  of  card  field  "asnDeg" 

put  perDeg  &  "  °"  into  line  1  of  card  field  "perDeg" 

put  incDeg  &  "  °"  into  line  I  of  card  field  "incDeg" 

set  numberFormat  to  "0  " 

if  sec  >=  10  then 

put  hr  &  ":*  A  min  &  ";*  &  sec  &  "  IfH  \tM  SS'into  -• 
line  1  of  card  field  "Time" 
else 

put  hr  &  "  "  &  mm  &  "  "  A  "0"  &  sec  &  "  HH  .VtM  SS"into  - 
line  1  of  card  field  Time" 
end  if 
end  if 

end  mouseL'p 
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Script  of  Card  Button  "Orbital  Hcments"  of  Card  "Charlie  Qements  Card 


on  mouseUp 
set  the  cursor  to  4 

global  ecc,parainJ^minJ^iiia.xJic,a.b^nDeg4)erDeg4ncDegjnuJirjnin3ec 
global  a.\lt.  p.\lt.  period,  asnTime£rror 
if  firror  is  true  then 
answer  "Invalid  entr>  !  Try  again." 
pass  mouseUp 
else 

put  806  81364522  into  herg 
lock  screen 

put  line  1  of  card  field  "NI  M  Motion"  into  MMM 

put  line  1  of  card  field  "ecc"  into  ecc 

put  line  1  of  card  field  "asnC"  into  asnC 

put  line  1  of  card  field  "perC"  into  perC 

put  line  1  of  card  field  "incC"  into  incC 

put  (niu*(herg'MM\f)''2)^(l  3)  into  a 

put  asnC*360  into  asnDeg 

put  perC*360  into  perDeg 

put  incC*360  into  incDeg 

put  a*(  1  -  ecc)  -  Re  into  pAlt 

put  a*(  1  +  ecc)  -  Re  into  aAlt 

put  p.\lt  +  Re  into  Rmin 

put  aAlt  +  Re  into  Rmax 

put  a*sqrt(  1  -  ecc’ecc)  into  b 

put  Rmin*(  I  >ecc)  into  param 

put  2*pi*sqrt(a*a*a  mu)  into  penod 

put  trunc< penod)  into  mtP 

put  inlP  div  3600  into  hr 

put  (intP  -  3600*hr)  div  60  into  nun 

put  (intP  -  3600*hr  -  60*nun)  into  sec 

go  to  card  "Orbital  Elements" 

set  niunberFonnat  to  "0  #" 

put  a  &  "  Km"  into  line  1  of  card  field  "a” 

set  numberFonnai  to  "0  ###" 

put  ecc  into  line  1  of  card  field  "ecc" 

set  numberFormat  to  "0  #" 

put  p.Alt  &  "  Km"  into  line  1  of  card  field  "p.Alt" 

put  a.Alt  &  *  Km"  into  line  1  of  card  field  "aAlt" 

put  asnDeg  &  *  ""  into  line  1  of  card  field  "asoDeg" 

put  perDeg  &  "  into  line  I  of  card  field  "perDcg" 

put  incDeg  &  "  *"  into  line  1  of  card  field  "incDcg" 

set  numberFormat  to  "0  " 

if  sec  >=  10  then 

put  hr  &  "  "  &  min  &  "  "  &  sec  &  "  HH  \tM  SS"into  -> 
line  1  of  card  field  Time" 
else 
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put  hr  &  " &  min  &  "  "  "0"  &  sec  &  "  HH.MM;SS"into 

line  1  of  card  field  Time" 
end  if 
end  if 

end  mouseUp 


Script  of  Card  Button  Tquaior"  of  Card  "Geostationary  Card" 


on  mouseUp 

global  GeoSatLon.  change 
lock  screen 

put  the  mouseH  into  \ 

set  the  location  of  cd  btn  "Satellite  I"  to  x,l51 
show  cd  btn  "Satellite  1" 
if  X  =  256  then 
put  zero  into  GeoSatLon 
put  GeoSatLon  into  cd  fid  "Sat  Lon" 
set  hilite  of  cd  btn  "East"  to  true 
set  hilite  of  cd  btn  "W  est"  to  false 
else 

put  (X  -  256)*(2*pt)  507  into  GeoSatLon 
put  GeoSatLon*  180/pi  into  lonDeg 
if  lonDeg  <  0  then 
set  hilite  of  cd  btn  "East"  to  false 
set  hilite  of  cd  btn  "West"  to  true 
else 

set  hilite  of  cd  btn  "East"  to  true 
set  hilite  of  cd  bm  "West"  to  false 
end  if 

put  round(abs(lonDeg))  into  cd  fid  "Sat  Lon" 
end  if 

put  uxie  into  change 
unlock  screen 
end  mouseUp 


Senpt  of  Card  Button  "Compute  Rise  and  Set"  of  Card  "Rise  and  Set" 


on  mouseUp 
global  Error 
if  Error  is  true  then 

answer  "\  ou  have  an  invalid  entry!  Try  again." 
pass  mouseUp 
else 

put  "Compuung,  This  might  take  a  while"  into  msg 
show  msg 
-  lock  screen 
set  cursor  to  4 
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put  empty  into  cd  fid  "Rise  Time" 
put  empty  into  cd  fid  "Rise  Azimuth" 
put  empty  into  cd  fid  "Elevation  Angle" 
put  empty  into  cd  fid  "Set  Time" 
put  empty  into  cd  fid  "Set  Azimuth" 

global  ecc.paramJ^minJlmaxJleAb^nOeg.perDegjncDeg,dtjnu 
global  penod,  GRXdeg,  bourRequiest.Glat,Gloo4nt_el,we.d2rx2d 
global  E.i4neanMouon,ex,ey,ez,vx,vy.vz,sinE.cosE.tO 
global  weAlax.RangeRiseAlaxRangeSetXinRange.TIV w^zRjse.AzSet 
global  Az0pt.HRise£lSet£10pt 
put  true  into  TIV 
put  zero  into  VlaxRangeRise 
put  zero  into  .VlaxRangeSet 
put  35786  into  MinRange 
put  sqrt(a*a*a/mu)  into  meanMotion 
p’lt  true  into  first 
put  one  into  line.num 
put  "0,0.0,0,0"  into  data 
put  zero  into  ElOpt 
put  zero  into  QRise 
put  zero  into  BSet 
pul  zero  into  AzSet 
put  zero  into  AzRise 
put  zero  into  AzOpt 
put  0  081992  into  earth_e 
OrbiLXform  --  Handler  in  stack  script. 

-  Get  Ground  Stadoa  Coordinates 
put  GeodedicLatfGlat)  into  GeoLat 
put  GeodedicR(GcoLat)  into  R_Oblong 
--  Calc  orbit  points 
put  cd  fid  "Begin"  into  begin 
put  cd  fid  "End"  into  theEnd 
put  trunc< (begin  -  l)*period/60)  -t-  1  into  start 
pul  round(theEnd*penody60)  into  finish 
repeat  with  k  =  start  to  finish 
add  one  to  k 
put  k*60  into  orbtime 
put  orbtime  +  tO  into  t 
put  orbtime  ^  hourRequest  into  elapsedTime 
convert  elapsecfriine  to  short  time 
Newton.Raphsoo  -  Handler  in  stack  script. 

--  SolutioD  for  the  true  anomaly 
put  cos(E)  into  cosE 

put  (co8E-«cc)/(l-ecc*cosE)  into  cosOrbAng 
put  sqrt(  1  -cosOrbAng^cosOrbAng)  into  sinOrbAng 
if  sin(E)  <  0  then  put  -sinOrbAng  into  sinOrbAng 
--  Solution  for  the  Satellites  inerbal  coordinates 
put  param.  ( 1  +ecc*cosC)rbAng)  into  r 
put  r’eosOrbAng  into  rp 
put  r*sinOrbAng  into  rv 
put  cx*rp  +  vx*rv  into  ox 
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put  ey*rp  +  vy*rv  into  oy 
put  ez*rp  +  vz*rv  into  oz 
put  we*t  into  wet 

--  Solution  for  the  sub-satellite  point 
put  cos(wet)  into  CosWet 
put  sin(wet)  into  SinWet 
put  ox*cosWet  +  oy*sinWet  into  xe 
put  -ox*sinWet  +  oy*cosWet  into  ye 
put  aSin(oz  r)  into  satLat 
put  aTaii2(xe,ye)  into  satLon 
-  Solution  for  the  ground  stations  inertial  coordinates 
put  Glon  +  wet  into  Gang 
put  cos(G€oLat)*cos(Gang)  into  gx 
put  cos(GeoLat)*sin(Gang)  into  gy 
put  sin(GeoLat)  into  gz 
put  ox*gx  +  oy’gy  +  oz*gz  into  r_on_R 
if  r_on_R  >=  R_Oblong  then 
put  asin(r_on_R  r)  into  theoretical_el 
put  atan((sin(theoretical_el)  ■  R_Oblong'r) 
cos(theoretjcal_el))  into  tnie_el 
if  true_el  >=  ant_el  then 
put  SlantRange(rJi_Oblong,true_el)  into  range 
put  Glon  -  satLon  into  deljon 
put  Azimuth  (del_lon,Glat,satLat)  into  .AZ 
if  Tint  is  true  then 
add  one  to  line_num 
put  range  into  MaxRangeRise 
put  TimeChange(elapsedTime)  into  item  I  of  data 
put  Round(.AZ)  &  into  item  2  of  data 
put  .AZ  into  AzRise 
put  false  into  first 
put  true_el*r2d  into  ElRise 
put  zero  into  ElOpt 
end  if 

if  true_el*r2d  >  ElOpt  then 
put  true_el*r2d  into  ElOpt 
put  .AZ  into  AzOpt 
end  if 

put  range  into  Ma.xRangcSet 
if  range  <  MinRange  then 
put  range  into  MinRange 
end  if 

put  RoundfElOpt)  &  into  item  3  of  data 
put  TimeChange(elapsedTime)  into  item  4  of  data 
put  Round(AZ)  &  into  item  5  of  data 
put  .AZ  into  AzSet 
put  true_el*r2d  into  HSet 
end  if 
else 

put  true  into  first 
put  zero  into  ma.x_el 
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end  if 

put  Item  I  of  data  into  line  liDe_num  of  cd  fid  "Rise  Time" 

put  Item  2  of  data  into  line  line_num  of  cd  fid  "Rise  Azimuth" 

put  Item  3  of  data  into  line  line_num  of  cd  fid  "Hevation  .Angle" 
put  Item  4  of  data  into  line  line_num  of  cd  fid  "Set  Time" 

put  item  5  of  data  into  line  line_num  of  cd  fid  "Set  Azimuth" 

end  refxiat 
hide  msg 
end  if 

end  moil.' el  p 


Scnpt  of  Card  Button  "<  Ram  Region  >"  of  Card  "Ground  Station  Placement" 


on  mouse  L'p 
global  regio 

put  the  shop  .line  of  me  into  rep* or. 
put  region  into  msg 
set  lockNfessages  to  true 
pass  mouseup 
end  mousel'p 


Script  of  Card  Button  "Second  Ground  Site"  of  C^d  "Ground  Stauon  Placement" 


on  nouse  I  p 
global  GD2 
put  true  into  GD2 
end  mouseL  p 


ScTipt  of  Card  Button  "I  pi  ink  QRP  Inknown"  of  Card  "Link  Info" 


on  mouse  I  p 

global  XiiiitTvpe„AntT>pe 
set  hilite  of  me  to  true 
put  “Ground"  into  XmitTy"pe 
put  "Ground  Up"  into  .AntType 
go  cd  "ORP  Parameters" 
end  mouseUp 


Script  of  Card  Button  "Downlink  GT  Unknown"  of  Card  "lank  Info" 


on  mouseDown 
global  RcvrType.AntType 
put  "Ground"  into  RtvrType 
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put  "Ground  Down"  into  .\ntT\pe 
set  hilite  of  me  to  trtie 
go  cd  "G  T  Parameters" 
end  mouseDown 


Scnpt  of  Card  Button  "Satellite  ORP  I’nknown"  of  Card  "Link  Info" 


on  mouse  L’p 

global  XmitTvpe.  AntType 
set  hilite  of  me  to  true 
put  "Satellite"  into  XmiiType 
put  "Satellite  Down"  into  .XntTypc 
go  to  cd  "EIRP  Parameters" 
end  mouseUp 


Script  of  Card  Button  "Satellite  G  T  Unknown"  of  Card  "Link  Info" 


on  mouseUp 

global  RcvrType.AntType 
put  "Satellite"  into  RcvrType 
put  "Satellite  Up"  into  .AntType 
set  hilite  of  me  to  true 
go  to  cd  "G  T  Parameters" 
end  mouseUp 


Scnpt  of  Card  Button  "Done"  of  Card  "Jamming  Losses" 


on  mouseUp 

global  Jammer,waveUp,waveDownJamUpJamDown£rTor 
if  Error  is  true  then 
answer  "Invalid  entry!  Try  again." 
pass  mouseUp 
else 

lock  screen 
hide  me 

hide  cd  fid  "Jammer  Power  Output" 

hide  cd  fid  "Label" 

hide  cd  fid  "Range" 

hide  cd  btn  "Jamming  in  Main  Beam" 

hide  cd  btn  "Jamming  at  Half  Beam" 

hide  cd  nd  "Hide" 

put  cd  fid  "Range"  into  range 

put  cd  fid  "Jammer  Power  Output"  into  Power 

--  Jammer  antenna  is  modeled  as  an  omni-directional  antenna 

--  with  a  gain  of  1.56  dBi 
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put  1  56  into  gainUp 
put  I  56  into  gainDown 

if  hilite  of  cd  btn  "Jammer  Power  Unknown"  is  true  then 
put  (4*pi*range*i0^3  waveUp)''2  into  lossUp 
put  10*log(lossUp)  into  Loss 
put  Power  +  gainUp  -  Loss  into  Jammer 
if  hilite  of  cd  btn  "Janmung  at  Half  Beam"  is  true  then 
subtract  3  from  Jammer 
end  if 

show  cd  bm  "Jammer  Power  Unknown" 
put  Jammer  into  cd  fid  "Jammer  Power" 
end  if 

if  hilite  of  cd  bm  "Jammer  Power  Unknown  2*  is  true  then 
put  (4*pi*range*l(}^3  waveDown)^2  into  lossDown 
put  10*log(lossDown)  into  Loss 
put  Power  -t-  gainDown  -  Loss  into  Jammer 
if  hilite  of  cd  bm  "Jamming  at  ffalf  Beam"  is  true  then 
subtract  3  from  Jammer 
end  if 

show  cd  bm  "Jammer  Power  L'nknown  2" 
put  Jammer  into  cd  fid  "Jammer  Power  2" 
end  if 

show  cd  fid  "Jammer  Power  Label  2" 
show  cd  fid  "Jammer  Power  2" 
show  cd  fid  "Jammer  Power  Label" 
show  cd  fid  "Jammer  Power" 
show  cd  bm  "Jam  Uplink  Receiver" 
show  cd  bm  "Jam  Downlink  Receiver" 
set  hilite  of  cd  btn  "Jammer  Power  Unknown"  to  false 
set  hilite  of  cd  bm  "Jammer  Power  Unknown  2"  to  false 
show  cd  bm  "Jammer  Power  Unknown" 
show  cd  bm  "Jammer  Power  Unknown  2" 
unlock  screen 
end  if 

end  mouseUp 


Scnpt  of  Card  Button  "<  Percent  >"  of  Card  "Rain  Losses" 


on  mouseUp 

global  PercentUp.GeoSal.CaseJ^ate 
global  PercentDownXhrection 
lock  screen 
repeat  with  x=7  to  18 
set  hilite  of  cd  bm  x  to  false 
end  repeat 

set  hilite  of  me  to  uue 
put  "<  Case  >"  into  Case 
unlock  screen 

put  cd  fid  <  Rate  Exceeded  >  into  Rate 
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if  GeoSat  is  false  then 
put  <  Percent  >  into  PercentUp 
put  <  Percent  >  into  PercentDown 
else 

if  Direction  is  T'p"  then 
put<  Percent  >  into  PercentUp 
else  if  Direction  is  "Down"  then 
put  <  Percent  >  into  PercentDown 
end  if 
end  if 

end  mouseUp 


Script  of  Card  Button  "Display  Uplink  Rain  Rate"  of  Card  "Rain  Losses" 


on  mouseUp 

global  DirectionjegionUpjainRegion 
lock  screen 

set  hilite  of  me  to  true 

set  hilite  of  cd  btn  "Display  Downlink  Rain  Rate"  to  false 
put  "Up"  into  Direction 

put  "Uplink  Rain  Region:"  into  cd  fid  "Region  Label" 
put  FindRegion(regionUp)  into  rainRegion 
FillRegion 
unlock  screen 
end  mouseUp 


Script  of  Card  Button  "Display  Downlink  Rain  Rate"  of  Card  "Rain  Losses" 


on  mouseUp 

global  DirectionjegionlXiwnjaiiiRegion 
lock  screen 

set  hilite  of  me  to  true 

set  hilite  of  cd  btn  "Display  Uplink  Rain  Rate”  to  false 
put  "Down"  into  Direction 

put  "Downlink  Rain  Region:"  into  cd  fid  "Region  Label" 
put  FindRegion(regioaDown)  into  rainRegion 
FillRegion 
unlock  Screen 
end  mouseUp 


Script  of  Card  Button  "Include  Uplink  Rain  Losses”  of  Card  "Rain  Losses” 


on  mouseUp 
global  RainLossesUp 
if  hilite  of  me  is  true  then 
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put  true  into  RaioLossesUp 
else 

put  false  into  RainLossesUp 
end  if 

end  mouseL'p 


Script  of  Card  Button  "Calculate  Rain  Losses"  of  Card  "Rain  Losses" 


on  mouseUp 

global  PercentUp.Glat.Glat2J'reqUp/reqDown.GeoSat 
global  ant_elUp,CaseJlateX>irection 

global  ant_elDownJlainAttenUpJ^a.\ttenDownPercentOown 
global  Calc 
lock  screen 
set  cursor  to  busy 
if  Case  is  empty  then 
answer  "Select  a  surface  point  rain  rate" 
else 

put  cd  fid  "Region"  into  Region 
put  true  into  Calc 
if  GeoSat  is  false  then 

put  FindRainAttenuation(Glatant_elUpJ'reqUp.CasePatePercentUp,-’ 
Region)  into  RainAttenUp 

put  FindRainAttenuation(Glatant_elIX)wnireqDown,CaseJRate.-' 
PercentDownPegion)  into  RaioAttenDown 
else 

if  Direction  is  "Up"  then 

put  FindRainAttenuationfGlatant.elUp/reqUp.CaseJlate)-' 
into  RainAttenUp 
else  if  Direction  is  "Down"  then 

put  nndRainAttenuation(Glat2ant_elDownJ'reqDown,CasePate)-' 
into  RaioAttenDown 
end  if 
end  if 
end  if 

unlock  screen 
end  mouseUp 


Script  of  Card  Button  "Link  Info"  of  Card  "HRP  Parameters" 


on  mouseUp 

global  XmitTypeiJKPUpJEIRPDownPwrUpPwrDownHXmitAntGain 
global  PointingLossUpPointingLossSatMotionUp.OutputBODown 
global  SatXmitAntGain,SatInputBO,GeoSat,OutputBOUp£nroT 
if  Error  is  Ume  then 
answer  "Invalid  Entry!  Try  again." 
pass  mouseUp 
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else 

set  numberFonnat  to  "0.##" 
if  XmifType  is  "Ground"  then 
if  hilite  of  cd  btn  "Watts  Xmit"  is  true  then 
put  cd  fid  "Xmit  Power"  into  pwr 
put  I0*log(pwr)  into  PwrL'p 
else 

put  cd  fid  "Xmit  Power"  into  PwrUp 
end  if 

put  cd  fid  ".\nt  Gain"  into  XmitAntGain 
put  cd  fid  "OutputBO"  into  OutputBOL'p 
put  cd  fid  "Ant  Pointing  Loss"  into  PoindngLossUp 
put  cd  fid  "Loss  to  Motion"  into  PointingLossSatVlotionUp 
put  PwrUp  +  XmitAntGain  -  OutputBOL'p  into  EIRPUp 
go  to  cd  "lank  Info" 
put  HRPL'p  into  cd  fid  "Llplink  HRP" 
else  if  XmitType  is  "Satellite"  then 
if  hilite  of  cd  bm  "Watts  Xmit"  is  true  then 
put  cd  fid  "Xmit  Power"  into  pwr 
put  10*log(pwr)  into  PwrDown 
else 

put  cd  fid  "Xmit  Power"  into  PwrDown 
end  if 

put  cd  fid  "Ant  Gain"  into  SaLXmit.AntGain 
put  cd  fid  "OutputBO"  into  OutputBODown 
if  GeoSat  is  true  then 
put  cd  fid  "InputBO"  into  SatInputBO 

put  PwrDown  +  SatXmitAntGain  -  SatInputBO  -  OutputBODown^ 
into  EIRPDown 
else 

put  zero  into  SatInputBO 

put  PwrDown  +  SatXmitAntGain  -  OutputBODown  into  EIRPDown 
end  if 

go  to  cd  "Link  Info" 

put  EIRPDown  into  cd  fid  "Sat  1  EIRP" 
end  if 
end  if 

end  mouseUp 


Script  of  Card  Button  "Link  Info"  of  Card  "G/T  Parameters" 


on  mouseUp 

global  RcvrType,GTL^p,GTEX)wnJVrUpJ*wrDown 
global  SatRcvrAntGainRcvrAntGain.GeoSatfrror 
global  RcvrNoiseTemp.SatRcvrNoiseTemp^IaintMarginDown 
global  PointingLossDownJ'ointingLossSatMotionDown 
lock  screen 
if  Error  is  true  then 
answer  "Invalid  Entry!  Try  again." 
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pass  mouseUp 
else 

set  numberFormat  to  "0  ##" 
if  RcvrType  is  "Ground*  then 
if  hilite  of  cd  btn  "®K"  is  true  then 
put  cd  fid  "Sys  Noise  Temp"  into  noiseT 
put  10*log('  seT)  into  RcvrNoiseTemp 
else 

put  cd  fid  "Sys  Noise  Temp"  into  RcvrNoiseTemp 
end  if 

put  cd  fid  ".\nt  Gain"  into  Rcvr.\ntGain 

put  cd  fid  "Maint  Margin*  into  MaintMarginDown 

put  cd  fid  "Ant  Pointing  Loss"  into  PointingLossDown 

put  cd  fid  "Loss  to  Motion"  into  PointingLossSatMotionDown 

put  Rcvr.\ntGain  -  RcvrNoiseTemp  into  GTDown 

go  to  cd  "Link  Info" 

put  GTDown  into  cd  fid  "Downlink  GT" 
else  if  RcvrType  is  "Satellite"  then 
if  hilite  of  cd  bm  "“K"  is  true  then 
put  cd  fid  "Sys  Noise  Temp"  into  noiseT 
put  10*log(noiseT)  into  SatRcvrNoiseTemp 
else 

put  cd  fid  "Sys  Noise  Temp"  into  SatRcvrNoiseTemp 
end  if 

put  cd  fid  "Ant  Gain"  into  SatRcvrAntGain 
put  SatRcvrAntGain  -  SatRcvrNoiseTemp  into  GTUp 
go  to  cd  "Link  Info" 
put  GTL’p  into  cd  fid  "Sat  1  G/T" 
end  if 
end  if 

unlock  screen 
end  mouseUp 


Script  of  Card  Button  "Transmitter"  of  Card  Transmitter  Power" 


on  mouseUp 

global  access.XmitPwrUp£OLReserveUp^umCanieTs,OutputBOUp 
global  FeederLo8sUp.XmitLineLossUp.XmitType 
global  PwrUp,Gec>Sat,XmitPwrDown£OLReserveDown,OutputBODown 
global  FeederLo9sDownJ*wrDown£iTor 
lock  screen 
if  Error  is  true  then 
answer  "Invalid  Entry!  Try  again." 
pass  mouseUp 
else 

if  XmitType  is  "Ground"  then 
put  0  into  PwrUp 

if  hilite  of  cd  btn  "Watts"  is  true  then 
put  10*log(cd  fid  "Saturated  Power")  into  XmitPwrUp 
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else 

put  cd  fid  "Saturated  Power*  into  XmitPwrL’p 
end  if 

add  XmitPwrUp  to  PwrUp 
put  cd  fid  "EOL  Loss"  into  EOLRescrveUp 
subtract  EOLReserveUp  from  PwrUp 
put  0  into  OutputBOUp 
subtract  OutputBOUp  from  PwrUp 
put  cd  fid  "Feeder  Loss"  into  FeederLossUp 
subtract  FeederLossUp  from  PwrUp 
put  cd  fid  "Line  Loss"  into  XmilLineLossUp 
subtract  XmitLineLossL'p  from  PwrUp 
if  Geosat  is  true  then 
if  access  is  "FDMA"  then 
put  cd  fid  "Carriers"  into  NumCarriers 
else  put  0  into  NumCarriers 
else 

put  0  into  NumCarriers 
end  if 

set  numberFcrmat  to  "0.##" 
go  to  cd  "ORP  Parameters" 
put  PwrUp  into  cd  fid  "Xmit  Power" 
set  hilite  of  cd  bm  "dBW  Xmit"  to  true 
set  hilite  of  cd  bm  "Watts  Xmit"  to  false 
else  if  XmitType  is  "Satellite"  then 
put  0  into  PwrDown 
if  hilite  of  cd  bm  "Watts"  is  true  then 
put  10*log(cd  fid  "Saturated  Power")  into  XxnitPwrDown 
else 

put  cd  fid  "Saturated  Power"  into  XmitPwrDown 
end  if 

add  XmitPwrDown  to  PwrDown 
put  cd  fid  "EOL  Loss"  into  EOLReserveDown 
subtract  EOLReserveDown  from  PwrDown 
put  cd  fid  "Feeder  Loss"  into  FeederLossDown 
subtraa  FeederLossDown  from  PwrEX)wn 
go  to  cd  "EIRP  Parameters" 
set  numbcrFormat  to  "0.##" 
put  PwrDown  into  cd  fid  "Xmit  Power" 
set  hilite  of  cd  bm  "dBW  Xmit"  to  true 
set  hilite  of  cd  bm  "Watts  Xmit"  to  false 
end  if 

end  if 

unlock  screen 
end  mouseUp 


Script  of  Card  Button  "Antenna"  of  Card  "Antenna  Gain" 


on  mouseUp 
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global  AniTvpeJCmitAiitGain-.SatRcvrAntGain  .SatymitAniTiain 
global  RcvrAiitGaiii,waveUp,waveDown£iror 
global  SatOfTCenterLxwsUpJ’ointingEirorLossL’p 
global  SatOfTCcntcrLossDown  J’ointingErrorLossDown 
lock  screen 
if  Error  is  true  then 
answer  "Invalid  Enrty!  Try  again." 
pass  mouseUp 
else 

set  numberFonnat  to  "0.##" 
put  cd  fid  "Ant  EfP  into  eff 
if  hilite  of  cd  btn  "Parabolic"  is  true  then 
if  hilite  of  cd  btn  "Area  (in^2)"  is  true  then 
put  cd  fid  "Ant  Size"  into  area 
put  sqrt(4*area/pi)  into  diam 
else 

put  cd  fid  "Ant  Size"  into  diam 
end  if 

put  efr*((pi*diam/waveUp)''2)  into  gainL'p 
put  eff*((pi*diam  waveDown)^2)  into  gainDown 
else 

put  cd  fid  "Ant  Size"  into  area 
put  efr*4*pi*areay(waveup^2)  into  gainUp 
put  eff*4*pi*area/'(waveDown^2)  into  gainDown 
end  if 

if  AntType  is  "Ground  Up"  then 
put  10*iog(gainUp)  into  XmitAntGain 
go  to  cd  "EIRP  Parameters" 
put  XmitAntGain  into  cd  fid  "Ant  Gain" 
else  if  AntType  is  "Satellite  Up"  then 
put  10*log(gainUp)  into  SatRcvrAntGain 
put  cd  fid  "Off  Beam  Loss"  into  SatOffCenterLossUp 
put  cd  fid  "Pointing  Error"  into  PointingErrorLossUp 
go  to  cd  "G/T  Parameters" 
put  SatRcvrAntGain  into  cd  fid  "Ant  Gain" 
else  if  AntType  is  "Satellite  Down"  then 
put  cd  fid  "Off  Beam  Loss"  into  SatOffCenterLossDown 
put  cd  fid  "Pointing  Error"  into  PointmgEirorLossDown 
put  10*log(gainDown)  into  SatXmitAntGain 
go  to  cd  "EIRP  Parameters" 
put  SatXmitAntGain  into  cd  fid  "Ant  Gain" 
else  if  AntType  is  "Ground  I>)wn"  then 
put  I0*Iog(gainDown)  into  RevrAntGain 
go  to  cd  "G/T  Parameters" 
put  RevrAntGain  into  cd  fid  "Ant  Gain” 
end  if 

end  if 

unlock  screen 
endmouseUp 
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Script  of  Card  Button  Tiowiilink  And  Uplink  Antenna  Same”  of  Card  "Antenna  Gain' 


on  mouseUp 

global  AntType.SatXmiLAntGain.SatRcvrAntGainJicvrAntGainAniitAntGain 
global  freqUp/reqEtownJ'CxnitAntGain 
global  SatOffCenterLossDownPointingErrorLossEiow'n 
put  lO'LogllfreqDown  freqUp)^2)  into  convert 
if  -AntType  is  "Satellite  Down"  then 
if  SatRcvrAntGain  is  empty  then 

answer  "No  antenna  gain  for  the  uplink  has  been  entered  "  &&-> 

"Enter  the  antenna  parameters  to  continue." 
pass  mouseUp 
else 

put  cd  fid  "Off  Beam  Loss"  into  SatOffCenterLossDown 
put  cd  fid  "Pointing  Error"  into  PointingEirorLossDown 
put  SatRcvrAntGain  +  convert  into  SatXmitAntGain 
go  to  cd  "EIRP  Parameters" 
put  SatXmitAntGain  into  cd  fid  "Ant  Gain" 
end  if 

else  if  AntType  is  "Ground  Down"  then 
if  XmitAntGain  is  empty  then 

answer  "No  antenna  gain  for  the  uplink  has  been  entered."  &&-• 

"Enter  the  antenna  parameters  to  continue.” 
pass  mouseUp 
else 

put  XmitAntGain  +  convert  into  RcvrAntGain 
go  to  cd  "G/T  Parameters" 
put  RcvrAntGain  into  cd  fid  "Ant  Gain" 
end  if 
end  if 

set  hilite  of  me  to  true 
end  mouseUp 


Script  of  Card  Button  "Receiver"  of  Card  "Receiver* 


on  mouseUp 

global  RcvrNoiseTemp.SatRcvrNoiseTempJlcvrType.SkyNoiseTemp 
global  Error 
lock  screen 
if  Error  is  true  then 
answer  "Invalid  Entry!  Try  again." 
pass  mouseUp 
else 

set  numberFormat  to  "010" 

put  cd  fid  "Ant  Noise  Temp"  into  Ta 

put  cd  fid  "WG  Loss"  into  1 

put  num(l)  into  LI 

put  cd  fid  "LNA  Gain"  into  G2 
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put  cd  fid  "LNA  Temp"  into  Tel 
put  cd  fid  "DC  Noise  Temp"  into  Te3 
put  cd  fid  "Amb  Temp"  into  To 
put  TaLl  +  (LI  -  I)^o.Ll  +  Tel  +  Te3/Gl  into  noiseT 
put  10*log(noiseT)  into  SysNoiseT 
if  RcvrType  is  "Satellite"  then 
put  SysNoiseT  into  SatRcvrNoiseTemp 
go  to  cd  "G  T  Parameters" 

put  SatRcvrNoiseTemp  into  cd  fid  "Sys  Noise  Temp" 
set  hilite  ol  cd  btn  "dB’K"  to  true 
set  hilite  of  cd  btn  "“K"  to  false 
else  if  RcvrType  is  "Ground"  then 
put  SysNoiseT  into  RcvrNoiseTemp 
go  to  cd  "G/T  Parameters" 
put  RcvrNoiseTemp  into  cd  fid  "Sys  Noise  Temp" 
set  hilite  of  cd  btn  "dB°K"  to  trtie 
set  hilite  of  cd  btn  "°K"  to  false 
end  if 
end  if 

unlock  screen 
end  mouseUp 


Script  of  Card  Button  "Optimum"  of  Card  "Quick  Budget" 


on  mouseUp 

global  HRPUp JEIRPDown.GTLfp.GTDownmoiseBW  JreeSpaceLossDown 
global  FreeSpaceLossUp.waveUp.waveDown.CNUp.dBk 
global  CNT)own.CNOverallJJnk,pAltJ^e^t_eLVlinRange 
global  rangeL'pjangeDown^AzOpt£IOpt^zUp^t_elUp^zDown^t_elDown 
lock  screen 
hide  cd  btn  "Rise" 
hide  cd  btn  "Set" 
set  numberFormat  to  "0.##" 
if  Link  is  "General"  then 
put  pAlt  into  range 

put  (4*pi ‘range*  l(K3/waveUp)''l  into  lossUp 

put  (4*pi*range*10'3/waveDown)^l  into  lossDown 

put  iO*log(IossUp)  into  FreeSpaceLossUp 

put  10*log(lo8sOown)  into  FreeSpaoeLossDown 

put  EIRPUp  -  FreeSpaceLossUp  +  GTUp  -  dBk  -  noiseBW  into  CNX'p 

put  ORPDown  -  FreeSpaceLossDown  +  GTDown  -  dBk  -  noiseBW -i 

into  CNDown 

put  lO'fCNUp/lO)  into  upCN 

put  lO'(CNT)ownyiO)  intodownCN 

put  lO*log(L(l'upCN  +  LdownCN”))  into CNOverall 

put  "N/A"  into  AzUp 

put  "N/A"  into  AzDown 

put  90  into  ant_eiUp 

put  90  into  ant_elDown 
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else 

put  VlioRange  into  range 

put  (4*pi ‘range*  10'3/waveL'p)^2  into  lossL'p 

put  (4*pi ’range*  I(>'3/waveDown)^2  into  lossDown 

put  10*Iog(lossUp)  into  FreeSpaceLossUp 

put  10*log(lossEX)wn)  into  FreeSpaceLossDown 

put  EIRPUp  -  FreeSpaceLossUp  +  GTLp  -  dBk  -  noiseBW  into  CNL'p 

put  HRPDown  -  FreeSpaceLossDown  +  GTDown  -  dBk  -  noiseBW-- 

into  CNDown 

put  10''(CNL’p/ 10)  into  upCN 
put  1  CP  (CNDown;  10)  into  downCN 
put  10*log(l  (I  'upCN  +  1  downCN))  into  CNOverall 
put  AzOpt  into  AzUp 
put  AzOpt  into  AzDown 
put  HOpt  into  ant_elUp 
put  ElOpt  into  ant_elDown 
end  if 

put  range  into  rangeUp 
put  range  into  rangeDown 
put  rangeUp  +  0  into  cd  fid  "Slant  Range  Up" 
put  rangeDown  +  0  into  cd  fid  "Slant  Range  Down" 
put  -FreeSpaceLossUp  -t-  0  into  cd  fid  "Uplink  Path  Loss" 
put  CNL'p  -t-  0  into  cd  Od  "Uplink  C  N" 
put  -FreeSpaceLossDown  +  0  into  cd  fid  "Downlink  Path  Loss" 
put  (ZNDown  +  0  into  cd  fid  "Downlink  CN" 
put  CNOverall  -t-  0  into  cd  fid  "Overall  CN" 
set  hilite  of  me  to  true 
set  hilite  of  cd  btn  "Wont  Case"  to  false 
hide  cd  btn  id  42  --  Full  Budget  Grey 
hide  cd  btn  id  49  -  Jamming  Losses  Grey 
hide  cd  btn  id  50  -  Rain  Losses  (jrey 
hide  cd  btn  id  51  --  Xmit  Losses  Grey 
unlock  screen 
end  mouseUp 


Script  of  Card  Button  "Worst  Case"  of  Card  "Quick  Budget" 


on  mouseUp 

global  EIRPUp£IRPDown,GTUp,GTDown jioiseBW J-reeSpaceLossDown 
global  FreeSpaceLossUp.waveUp.wavei  xjwn.CN'L'p.dBk^zUp AzDown 
global  CNDown.CNOverall  Jank.Rmax  Jleant_el  /angeL'p  jangeDown 
global  ant_elUpant_elDown 
lock  screen 

set  numberFormat  to  "OJt 
if  Link  is  "General"  then 
put  SlantRange(RmaxJ^eant_cl)  into  range 
put  (4*pi*range*10^3/wavcUp)^2  into  lossUp 
put  (4*pi ’range*  10^3/waveDown)^2  into  lossDown 
put  lO’IogflossUp)  into  FreeSpaceLossUp 
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put  10*logOossDown)  into  FreeSpaceLossDown 
put  EIRPUp  -  FreeSpaceLossUp  +  GTL’p  -  dBk  -  noiseBW  into  CNL’p 
put  HRPDown  -  FreeSpaceLossDown  +  GTDown  -  dBk  -  noiseBW-' 
into  CNDown 
put  "N  A"  into  AzUp 
put  A"  into  AzDown 
put  ant_el  into  ant_elL  p 
put  ant_el  into  ant_elDown 
put  10''(CNX’p'  10)  into  upCN 
put  10^(CNDowa  10)  into  downCN 
put  10*!og(l  (1  upCN  +  1  downCN))  into  CNOverall 
put  range  into  rangeUp 
put  range  into  rangeDown 
put  rangeUp  +  0  into  cd  (Id  "Slant  Range  L'p* 
put  rangeDown  +  0  into  cd  fid  'Slant  Range  Down" 
put  -PreeSpaceLossL'p  0  into  cd  fid  "L'plink  Path  Loss" 
put  CXL'p  +  0  into  cd  fid  "L'plink  C  N" 
put  -FreeSpaceLossDown  *■  0  into  cd  fid  "Downlink  Path  Loss" 
put  CNDown  +  0  into  cd  fid  "Downlink  CN" 
put  CNOverall  -t-  0  into  cd  fid  "Overall  C  N" 
hide  cd  btn  id  42  --  Full  Budget  Grey 
hide  cd  btn  id  49  --  Jamming  Losses  Grey 
hide  cd  btn  id  50  -  Rain  Losses  Grey 
hide  cd  btn  id  51  -  Xmit  Losses  Grey 
else 

show  cd  btn  id  42  -  Full  Budget  Grey 
show  cd  bln  id  49  -  Jamming  Losses  Grey 
show  cd  btn  id  50  --  Rain  Losses  Grey 
show  cd  btn  id  51  --  Xmit  Losses  Grey 
show  cd  btn  "Rise" 
show  cd  btn  "Set" 
set  hilite  of  cd  btn  "Rise"  to  false 
set  hilile  of  cd  btn  "Set"  to  false 
end  if 

set  hilite  of  me  to  true 
set  hilite  of  cd  btn  "Optimum"  to  false 
unlock  screen 
end  mouseUp 


Script  of  Card  Button  "General"  of  Card  "Quick  Budget" 


on  mouseUp 

global  ErRPUp£IRPDown,GTUp,GTDown4ioiseBW XJnk 
lock  screen 

put  "General"  into  Link 
show  cd  btn  "Optimum" 
show  cd  btn  "Worst  Case" 
hide  cd  btn  "Rise" 
hide  cd  bm'Set" 
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put  The  geaerai  case  assumes  the  satellite  is  at  pengce  overhead' 
"for  the  'Optimum'  and  at  apogee  as  it  .-omes  in  view  for  the* 
'"Worst  Case' "  into  cd  fid  Ttescription" 
show  cd  fid  'Descripooj" 
set  hilite  of  me  to  true 

set  hilite  of  cd  btn  Latest  Time  In  View"  to  false 
set  hilite  of  cd  btn  "Optimum"  to  false 
set  hilite  of  cd  btn  "Vt  orst  Case"  to  false 
set  numberFormat  to  "0 

put  -noiseBW  +  0  into  cd  fid  '?<oise  Bandwidth  !" 
put  -noiseBW  0  into  cd  fid  "Noise  Bandwidth  2" 
put  ORPL  p  -t-  0  into  cd  fid  "L'plink  EIRP" 
put  GTL'p  +  0  into  cd  fid  "Uplink  GT" 
put  EIRPDown  -  1  into  cd  fid  "Downlink  EIRP* 
put  GTDown  -t-  0  into  cd  fid  "Downlink  G  T* 
show  cd  btn  id  42  --  Full  Budget  Grey 
show  cd  btn  id  49  --  Jamming  Losses  Grey 
show  cd  btn  id  50  --  Rain  Losses  Grey 
show  cd  btn  id  51  --  Xmit  Losses  Grey 
unlock  screen 
end  mouseUp 


Script  of  Card  Button  "Latest  Time  in  View"  of  Card  "Quick  Budget" 


on  mouseUp 

global  El RPUp JEIRPDow n .GTL’p , GTDown jnoi seB W Xj  nk.T V 

if  TIV  is  false  then 

answer  "Rise  and  Set  calculations  needed." 

else 

lock  screen 

put  "TIV"  into  Link 

put  "The  Tatest  Time  in  View'  uses  the  actual  slant  ranges"  &&-' 

"at  satellite  rise,  maximum  elevation  and  set  times."-' 

into  cd  fid  "Description" 

show  cd  fid  "Description" 

set  hilite  of  me  to  true 

show  cd  btn  "Optimum" 

show  cd  btn  "Worst  Case* 

set  hilite  of  cd  btn  "General"  to  false 

set  hilite  of  cd  btn  "Optimum"  to  false 

set  hilite  of  cd  bm  "Worst  Case"  to  false 

set  numberFormat  to  "O.MM" 

put  -noiseBW  -t-  0  into  cd  fid  "Noise  Bandwidth  1" 

put  -noiseBW  +  0  into  cd  fid  "Noise  Bandwidth  2" 

put  EIRPUp  +  0  into  cd  fid  "Uplink  EIRP" 

put  GTL'p  -I-  0  into  cd  fid  "Uplink  G/T" 

put  EIRPDown  -i-  0  into  cd  fid  "Downlink  EIRP" 

put  GTDown  -f  0  into  cd  fid  "Downlink  G/T" 

show  cd  btn  id  42  -  Full  Budget  Grey 
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show  cd  btn  id  49  --  Jamming  Lxisses  Grey 
show  cd  btn  id  50  -  Rain  LxMses  Grey 
show  cd  btn  id  51  --  Xmit  Losses  Grey 
unlock  screen 
end  if 

end  mouseUp 


Script  of  Card  Button  "Rise"  of  Card  "Quick  Budget" 


on  mouseUp 

global  EIRPUp£IRPDown.GTL’p.GTDownjK>i8eBWJ^reeSpaceLossDown 
global  FreeSpaceLossUpAfaxRangeRise.waveUp.waveDown.CNUp,dBk 
global  CNDown,CNOverallijnkJlmaxJie^t_eljangeUpjan::"r)own 
global  AzRise£lRise^t_elL'p^t_elDown^zL'p^A2Down 
lock  screen 

set  numberFormat  to  "0 

put  MaxRangeRise  into  range 

put  (4*pi*range*10^3/waveUp)^2  mto  lossLp 

put  (4*pi*iange*10^3/waveDown)''2  into  lossDown 

put  10*log(lossUp)  into  FreeSpaceLossUp 

put  10*log(lossDown)  into  FreeSpaceLossDown 

put  ORPL'p  -  FreeSpaceLossLfp  -t-  GTL'p  -  dBk  -  noiseBW  into  CNUp 

put  ORPDown  -  FreeSpaceLossDown  +  GTDown  -  dBk  -  noiseBW-' 

into  CMDown 

put  10''(CNL'p/10)  into  upCN 
put  10^(CNDowny  10)  into  downCN 
put  10*Iog(l  (1  upCN  +  1  downCN))  into  CNOverall 
put  AzRise  into  AzL'p 
put  AzRise  into  AzDown 
put  ElRise  into  ant_elUp 
put  HRise  into  ant_elDown 
put  range  into  rangeUp 
put  range  into  rangeDown 
put  rangeUp  +  0  into  cd  fid  "Slant  Range  Up" 
put  rangeDown  +  0  into  cd  fid  "Slant  Range  Down" 
put  -FreeSpaceLossUp  -t-  0  into  cd  fid  "Uplink  Path  Loss" 
put  CNUp  +  0  into  cd  fid  "Uplink  C/N" 
put  -FreeSpaceLossDown  -t-  0  into  cd  fid  "Downlink  Path  Loss" 
put  CNDown  -t-  0  into  cd  fid  "Downlink  C'N" 
put  CNOverall  0  into  cd  fid  "Overall  C/N" 
set  hilite  of  me  to  true 
set  hilite  of  cd  btn  "Set"  to  false 
hide  cd  btn  id  42  -  Full  Budget  Grey 
hide  cd  btn  id  49  -  Jamming  Losses  Grey 
hide  cd  btn  id  50  -  Rain  Losses  Grey 
hide  cd  btn  id  51  -  Xmit  Losses  Grey 
unlock  screen 
end  mouseUp 
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Script  of  Card  Buaoa  "Set"  of  Card  "Quick  Budget' 


on  mouseUp 

global  HRPUp JEIRPDown.GTUp.GTDownjiOtseBW J-reeSpaceLossDown 
global  FreeSpaceLossL'p_Ma\RangeSet,waveUp,wavcDown.CNX'p,dBk 
global  CNDown.CNOverallJJnkJiina.xJ^e,ant_elAzSet£lSet 
global  AzUp>4zDown^t_elUp^t_elDown 
lock  screen 

set  numberFormat  to  "0.##" 

put  MaxRangeSet  into  range 

put  (4*pi ‘range*  1 0^3/ waveUp)^2  into  lossUp 

put  (4*pi*range*10^3/waveDowny'2  into  lossQown 

put  10*log(lossUp)  into  FreeSpaceLossUp 

put  10*log(lossDown)  into  FreeSpaceLossDown 

put  EIRPUp  -  FreeSpaceLossUp  +  GTUp  -  dBk  -  noiseBW  into  CNL’p 

put  EIRPDown  -  FreeSpaceLossDown  +  GTDown  -  dBk  -  noiscBW-i 

into  CNDown 

put  10^(CNUp/10)  intoupCN 
put  10^  (CNDown/ 10)  into  downCN 
put  10*log(l/(l  upCN  +  1  downCN))  into  CNOverall 
put  AzSet  into  AzUp 
put  AzSet  into  AzDown 
put  HSet  into  ant_elUp 
put  QSet  into  ant_elDown 
put  range  into  rangeUp 
put  range  into  rangeDown 
put  rangeLlp  0  into  cd  fid  "Slant  Range  Up" 
put  rangeDown  +  0  into  cd  (Id  "Slant  Range  Down" 
put  -FreeSpaceLossUp  +  0  into  cd  fid  "Uplink  Path  Loss" 
put  CNL’p  -t-  0  into  cd  fid  "Uplink  C/N" 
put  -FreeSpaceLossDown  -t-  0  into  cd  fid  "Downlink  Path  Loss" 
put  CNTtown  0  into  cd  fid  "Downlink  C/N" 
put  CNOverall  ^  0  into  cd  fid  "Overall  C/N" 
set  hilite  of  me  to  true 
set  hilite  of  cd  btn  "Rise"  to  false 
hide  cd  btn  id  42  -  Full  Budget  Grey 
hide  cd  btn  id  49  -  Jamming  Losses  Grey 
hide  cd  btn  id  50  -  Rain  Losses  Grey 
hide  cd  bm  id  51  -  Xmit  Losses  Grey 
unlock  screen 
end  mouseUp 


Script  of  Card  Button  "Calculate"  of  Card  "Quick  Budget" 


on  mouseUp 

global  ORPUpflRPDown.GTUp.GTDown jioiseBW /angcUp jangeDown 
global  FreeSpaceLossUp  JrecSpaceLossDown.waveUp.waveDown.CNUp 
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global  CNDown^CNOverall.dBkjioiseBW 

put  (4*pi*raDgeUp*l(y'3'waveUp)*2  into  lossUp 

put  (4*pi*rangeDown*l(>'3/waveDown)^2  into  lossDown 

put  10*log(lossUp)  into  FreeSpaceLossUp 

put  10*log(lossE)own)  into  FreeSpaceLossLtown 

put  ORPUp  -  FreeSpaceLossUp  +  GTL’p  -  dBk  -  noiscBW  into  CNUp 

put  HRPDown  -  FreeSpaceLossDown  +  GTDown  -  dBk  -  noiseBW-' 

into  CNDown 

put  l(y'(CSL'p/ 10)  into  upCN 

put  10''(CNDown/ 10)  into  downCN 

put  10*log(L(l/upCN  +  I'downCN))  into  CNOverall 

set  numberFormat  to  "0.##" 

put  -noiseBW  +  0  into  cd  fid  "Noise  Bandwidth  1" 

put  -noiseBW  +  0  into  cd  fid  "Noise  Bandwidth  2" 

put  ORPUp  0  into  cd  fid  "Uplink  EIRP" 

put  GTUp  +  0  into  cd  fid  "Uplink  G/T" 

put  EIRPDown  +  0  into  cd  fid  "Downlink  EIRP* 

put  GTDown  0  into  cd  fid  "Downlink  G/T" 

put  rangeUp  0  into  cd  fid  "Slant  Range  Up" 

put  rangeDown  -t-  0  into  cd  fid  "Slant  Range  Down" 

put  -FreeSpaceLossUp  +  0  into  cd  fid  "Uplink  Path  Loss" 

put  CNl-'p  +  0  into  cd  fid  "Uplink  C/N" 

put  -FreeSpaceLossDown  -t-  0  into  cd  fid  "Downlink  Path  Loss" 

put  CNTlown  -t-  0  into  cd  fid  "Downlink  C/N" 

put  CNOverall  -t-  0  into  cd  fid  "Overall  C/N" 

put  "The  general  case  assumes  the  satellite  is  at  pen  gee  overhead"  <&&-' 
"for  the  'Optimum'  and  at  apogee  as  it  comes  in  view  for  the"  &&-> 
""Worst  Case'."  into  cd  fid  "Description" 
show  cd  nd  "Description" 
hide  cd  btn  id  42  -  Full  Budget  Grey 
hide  cd  btn  id  49  -  Jamming  Losses  Grey 
hide  cd  btn  id  50  -  Rain  Losses  Grey 
hide  cd  btn  id  51  -  Xmit  IxMses  Grey 
end  mouseUp 


Script  of  Card  Button  "Done"  of  Card  "Noise  Bandwidth" 


on  mouseUp 
global  Error 
lock  screen 

if  cd  fid  "Baseband  Freq"  is  not  a  number  or-' 
cd  fid  "Baseband  Freq"  <  0  then 
answer  "Invalid  Baseband  Frequency!  Try  again" 
pass  mouseUp 
end  if 

if  cd  fid  "FM  Deviation"  is  not  a  number  or-' 
cd  fid  "FM  Deviation*  <  0  then 
answer  "Invalid  FM  Deviation!  Try  again." 
pass  mouseUp 
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end  if 

put  false  into  Error 
hide  me 

hide  cd  fid  "Baseband  Freq  Label" 
hide  cd  fid  "Baseband  Freq" 
hide  cd  fid  "FM  Deviation  Label" 
hide  cd  fid  "FM  Deviation" 
hide  cd  nd  "Hide" 

put  cd  fid  "Baseband  Freq"*  10'3  into  Bhi 

put  cd  fid  "FM  Deviation"  into  dp 

set  numberFormat  to  "0.##" 

put  2*(Bhi  +  dp)/  Ky'b  into  cd  fid  "Noise  Bandwidth" 

show  cd  fid  "Noise  Bandwidth  Label" 

show  cd  btn  "Noise  Bandwidth  Unknown" 

set  hilite  of  cd  btn  "Noise  Bandwidth  Unknown"  to  false 

show  cd  fid  "Noise  Bandwidth" 

hide  cd  fid  "Description" 

unlock  screen 

select  text  of  cd  fid  "Noise  Bandwidth" 
end  mouseL'p 


Senpt  of  Card  Button  "<  Time  Step  >"  of  Card  "Time  Step" 


on  mouseUp 
global  dt.  step 

put  <  Time  Step  in  Seconds  >  into  dt 
put  "<  Time  Step  >"  into  step 
set  hilite  of  me  to  true 

set  the  hilite  of  card  button  "<  Other  Time  Step  >"  to  false 
set  the  hilite  of  card  button  "<  Other  Time  Step  >"  to  false 
set  the  hilite  of  card  button  "<  Other  Time  Step  >"  to  false 
set  the  hilite  of  card  button  "<  Other  Time  Step  >"  to  false 
show  cd  fid  "Description" 

put  "<  Time  Step  Recommendation  >"  into  cd  fid  "Description" 
end  mouseUp 


Script  of  Card  Button  "LST"  of  Card  "Time  Step" 


on  mouseUp 

global  timeZooe.timeAdjust 
set  hilite  of  me  to  true 
set  hilite  of  cd  btn  "DST"  to  false 
set  hilite  of  cd  btn  "Zulu"  to  false 
put  timeZone  into  bmeAdjust 
end  mouseUp 
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Script  of  Card  Button  "DST"  of  Card  Time  Step 


on  mouseUp 

global  timeZone.dmeAdjust 
set  hilite  of  me  to  true 
set  hilite  of  cd  btn  TST"  to  false 
set  hilite  of  cd  btn  "Zulu"  to  false 
put  dmeZone  -  1  into  timeAdjust 
end  mouseUp 


Script  of  Card  Button  "Zulu"  of  Card  Time  Step" 


on  mouseUp 

global  timeZone.timeAdJust 
set  hilite  of  me  to  true 
set  hilite  of  cd  btn  "LST"  to  false 
set  hilite  of  cd  btn  "DST"  to  false 
put  0  into  timeAdjust 
end  mouseUp 


Script  of  Card  Button  Ttot  Track"  of  Card  "Ground  Trace" 


on  mouseUp 
set  cursor  to  4 

global  ecc,paramJlminJ^ma\Jien.b3snDeg.perDeg4ncDeg.dtjnu 

global  period,  step,  view.  GHAdeg,  hourRequest.cLat.cLon 

global  aLon.bLon.aLat,bLat4naxLon,minLonjnaxLatjninLatAiap 

global  Glon.Glat.Swath3nt_el,plotAll,tO£3inE.cosE 

global  d2rj2d.ex,ey,ez,vx,vy,vz4neanMotiooi’lotType 

global  lonJat.Glon.GlatJonV JatV .xS.yS.gxS.gySjtV.yV  jEl.cEl 

global  tl,t2,dphi,el.e2.e3jil Ji24i3,pl,p2,p3 

global  lonVJonCk.GlonCkJonVckjnaxLonCk 

global  oldXs,oldYs.oldYv,oldXv.tj,z 

put  00007292115856  into  we 

put  sqrt(a*a*a/mu)  into  meanMotion 

put  true  into  first 

if  swath  is  false  then  put  true  into  plotAll  « 

OrbitXfonn  --  Handler  in  stack  script. 

-•  Calc  orbit  points  , 

put  rouDd(view/dt)into  noPts 

put  - 1  into  i 

-  put  1  into  kMin 

put  noPts  ^  I  into  kMax 

go  to  cd  Map 

domenu  "Copy  Card" 

choose  brush  tool 
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set  brush  to  32 
set  pattern  to  12 
repeat  with  k  =  1  to  kMax 
add  one  to  i 
put  i*dt  into  orbtime 
put  orbtime  +  tO  into  t 
put  orbtime  +  hourRequest  into  elapsedTime 
convert  elapsedTime  to  short  lime 
N'ewton_Raphson  -  Handler  in  stack  script. 

*  put  cos(E)  into  cosE 

put  (cosE-ecc)/(  I  -ecc*cosE)  into  cosOrbAng 

put  sqrt(  1  -cosOrb.Ang^cosOrbAng)  into  sinOrbAng 

if  sin(E)  <  0  then  put  -sinOrbAng  into  sinOrb.Ang 

put  param  ( 1 +ecc*cosOrb.Ang)  into  r 

put  r*cosOrb.Ang  into  rp 

put  r*sinOrbAng  into  rv 

put  ex*rp  +  vx’rv  into  x 

put  ey*rp  +  vy*rv  into  y 

put  ez*rp  +  vz*rv  into  z 

put  we'orbtime  into  wet 

put  cos(wet)  into  CosWet 

put  sin(wet)  into  SinWet 

put  x*cosWet  +  y’sinWet  into  xe 

put  -x*sinWet  y*cosWet  into  ye 

put  aSin(z  r)  into  lat 

put  aTan2(xe,ye)  into  Ion 

pul  "Ground  Site"  into  PloiTypc 

MaxLonCheck 

put  "Sub  Satellite"  into  PlotType 
MaxLonCheck  -  Handler  in  stack  script 
if  lat  >=  minLat  and  lat  <=  maxLat  and-< 
lonCk  >=  minLon  and  lonCk  <=  maxLonCk  then 
if  Map  =  "Global  Map"  then 
doMcnu  "Paste  Card" 
set  cantDelete  of  this  cd  to  false 
mark  card 

pul  step  into  bg  Held  Time  Step" 

put  TimeChangefelapsedTime)  &  "  Zulu"  into  bg  fid  Time" 

put  "Ground  Site"  into  PlotType 

PlotMap  -  Handler  in  stack  script. 

set  the  loc  of  cd  btn  "GS"  to  round(gxS)jound(gyS) 

*  show  cd  btn  "GS" 

put  "Sub  Satellite”  into  PlotType 
t  PlotMap  -  Handler  in  stack  script, 

if  i  =  0  then 
put  xS  into  oldXs 
put  yS  into  oldYs 
end  if 

if  absfoldXs  -  xS)  <  250  then 

drag  from  round(oldXs)jround(oidYs)  to  round(xS)jound(yS) 
else 
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Interpolate 
end  if 

put  :^S  into  oldXs 
put  yS  into  oldYs 
if  ploLAil  is  false  then 
domenu  "Copy  Card" 
end  if 

-  Plot  ground  swath 
if  Sw'ath  is  true  then 

Swath.Width  --  Handler  in  stack  script.  r 

repeat  with  j  =  0  to  30 
put  j*dphi  into  phi 
put  cosfphi)  into  cphi 
put  sin(phi)  into  sphi 

put  tl*pl  +  t2*(cphi*nl  +  sphi’el)  into  xView 
put  tl*p2  +  t2*(cphi*n2  +  sphi*e2)  into  yView 
put  tl*p3  +  t2*(cphi*n3  sphi*e3)  into  zView 
put  aSinfzView  r)  into  latV 
put  aTan2(.xView.yVicw)  into  lonV 
put  Tield  of  View"  into  PlotType 
PlotMap  --  Handler  in  stack  scnpt. 
if  j  =  0  then 
put  xV  into  oldXv 
put  yV  into  oldyv 
end  if 

if  absfoidXv  -  xV)  <  250  then 

drag  from  round(oldXv)jx)und(oldYv)  to  round(xV)jound(y  V) 
else 

Interpolate 
end  if 

put  xV  into  oldXv 
pot  yV  into  oldYv 
end  repeat 
end  if 

if  p’otAll  is  true  then 
domenu  "Copy  Card" 
end  if 
else 

doMenu  Taste  Card" 

set  cantDeiete  of  this  cd  to  false 

mark  card 

put  step  into  bg  field  Time  Step"  « 

put  TimeCbangefeiapsedTime)  &  "  Zulu"  into  bg  fid  Time" 

if  Glat  >=  mini  at  md  Glat  <=  maxLat  and-'  I 

GlonCk  >=  rninLoo  and  GlooCk  <=  maxLonCk  then 
put  "Ground  Site"  into  PlotType 
PlotMap  --  Handler  in  stack  script, 
set  the  loc  of  cd  btn  "GS"  to  round(gxS)jound(gyS) 
show  cd  btn  "GS" 
end  if 

put  "Sub  Satellite"  into  PlotType 
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PloLVlap  -  Handler  in  stack  script 
if  first  is  true  then 
put  xS  into  oldXs 
put  y  S  into  oldY s 
put  false  into  first 
end  if 

drag  from  round(old\s)jound(oldYs)  to  round(xS)jound(yS) 
put  xS  into  oldXs 
put  yS  into  oldYs 
if  plot.\ll  is  false  then 
domenu  "Copy  Card" 
end  if 

put  true  into  second 
-  Plot  ground  swath 
if  Swath  is  true  then 
Swath_Width  --  Handler  in  stack  script, 
repeat  with  j  =  0  to  30 
put  j*dphi  into  phi 
put  cos(phi)  into  cphi 
pul  sin(phi)  into  sphi 

put  tl’pl  +  t2*(cphi*ol  +  sphi'el)  into  xView 
put  tl*p2  +  t2*(cphi*n2  +  sphi*e2)  into  yView 
put  tl*p3  -t-  t2*(cphi*n3  >  sphi*e3)  into  zView 
put  aSin(zView  r)  into  latV 
put  aTan2(xView,yView)  into  lonV 
put  "Field  of  View  "  into  PlotType 
Ma.xLonCheck  --  Handler  in  stack  script, 
if  lalV  >=  minLat  and  latV  <=  maxLat  and-- 
lonVck  >=  minLon  and  lonVck  <=  inaxLonCk  then 
PlotMap 

if  second  is  true  then 
put  xV  into  oldXv 
put  yV  into  oldyv 
put  false  into  second 
end  if 

if  absfoldXv  -  xV)  <  250  then 

drag  from  roiind(oldXvijx)und(oldYv)  to  round(xV)/ound(y  V) 
end  if 

put  xV  into  oldXv 
pul  y V  into  oldY  v 
else  put  true  into  second 
end  repeat 
end  if 

if  plolAll  is  true  then 
domenu  "Copy  Card" 
end  if 
end  if 

else  put  true  into  first 
end  repeat 
choose  browse  tool 
play  "Presto" 
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end  mouseUp 


Scnpt  of  Card  Button  "Review"  of  Card  "Ground  Trace" 


on  mouseUp 
global  Map 
go  to  cd  Map 

repeat  while  marked  of  next  card  is  true 
go  to  next  card 
visual  dissolve  fast 
end  repeat 
end  mouseUp 


Script  of  Card  Button  "Erase"  of  Card  "Ground  Trace" 


on  mouseUp 
global  Map 

answer  "Erase  all  maps  or  just  view  selected'’"  with  "All"  or-' 
"View"  or  "Cancel" 
if  it  is  "Cancel"  then 
pass  mouseUp 
else  if  it  is  "All"  then 
set  cursor  to  4 
lock  screen 

set  lockMessages  to  true 
repeat  with  x  =  number  of  cards  down  to  1 
go  to  cd  X 

if  marked  of  cd  x  is  true  then 
doMenu  "Delete  Card" 
end  if 
end  repeat 

go  to  cd  "Ground  Trace" 
doMenu  "Compact  Stack" 
set  lockMessages  to  false 
unlock  screen 
play  "Presto" 
else 

set  cursor  to  4 
lock  screen 

set  lockMessages  to  true 
put  number  of  cards  of  bg  Map  into  c 
repeat  with  x  =  1  to  c 
go  to  last  cd  of  bg  Map 
if  marked  of  last  card  of  bg  Map  is  true  then 
doMenu  "Delete  Card" 
go  to  last  cd  of  bg  Map 
end  if 
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end  repeat 

go  to  cd  "Ground  Trace" 
doMenu  "Compact  Stack" 
set  locLMessages  to  false 
unlock  screen 
play  "Presto" 
end  if 

end  mouseL'p 


#  _ 

Script  of  Card  Button  "<  Vfap  Name  >"  of  Card  "Ground  Trace" 


on  mouseL'p 

global  aLon.bLon.aLat.bLatjnaxLonjninLonjnaxLatjninLatAlap 
repeat  with  x  =  5  to  19 
set  hilite  of  cd  bm  x  to  false 
end  repeat 

set  hilite  of  me  to  true 
Choose  map 

put  "<  Map  Name  >"  into  Map 
-  Set  Lat  Lon  limits 

<  Lat  Lon  Limits  > 

--  Calc  scale  parameters 

<  Scale  Parameters  > 
end  mouseL'p 


lat  Lon  Limits  and  Scale  Parameters  of  Card  Button  "Global  Map"  of  Card  "Ground  Trace" 


-  Set  Lat'Lon  limits 
put  pi  into  maxLon 
put  -pi  into  mioLon 
put  (pi' 2)  into  maxLat 
put  (pi '2)  into  minLat 

-  Calc  scale  parameters 
put  51 1 '2  into  aLon 

put  507'(2*pi)  into  bLon 
put  3012  into  aLat 
put  -255/pi  into  bLat 


Lat  Ton  Limits  and  Scale  Parameters  of  Card  Button  "North  America"  of  Card  "Ground  Trace" 


)  -  Set  LafLon  limits 

put  -(pi/4)  into  maxLon 
put  -(5*pi/6)  into  minLon 
put  (pi  3)  into  maxLat 
put  0  into  mioLat 
put  30*(pi/ 180)  into  cLat 
put  -97  5*(pi/ 180)  into  cLon 
-  Calc  scale  parameters 
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put  255  into  aLon 

pul  330/(7*pi  12)  tnto  bLon 

put  1 29  into  aLat 

put  -220  (pi  3)  into  bLat 

L-at  Lon  Limits  and  Scale  Parameters  of  Card  Button  "South  America"  of  Card  "Ground  Trace" 

--  Set  Lai  Lon  lirmls 
put  (pi  6)  into  ma\Lon 
put  (pi  2)  into  minLon 
put  (pi  12)  into  maxLat 
put  (pi  3)  into  imnLat 
put  -22.5*(pi/180)  into  cLat 
put  -60*(pi/ 180)  into  cLon 
--  Calc  scale  parameters 
put  255  into  aLon 
put  264  (pi  3)  into  bLon 
put  165  into  aLat 
put  -292  (5*pi/ 12)  into  bLat 


Lai  Lon  Limits  and  Scale  Parameters  of  Card  Button  “North  Atlantic"  of  Card  "Ground  Trace" 


--  Set  Lai  Lon  limits 
pul  0  into  maxLon 
put  (pi  2)  into  minLon 
put  (pi/3)  into  maxLat 
put  0  into  minLat 
put  30*(pi/ 180)  into  cLat 
put  45*(pi  180)  into  cLon 
--  Calc  scale  parameters 
put  255  into  aLon 
put  3%  (pi  2)  into  bLon 
pul  129  into  aLat 
put  -220/ (pi  3)  into  bLat 

L-at  Lon  Limits  and  Scale  Parameters  of  Card  Button  "South  Atlantic"  of  Card  "Ground  Trace" 


-  Set  lat  Lon  limits 
put  (pi'  12)  into  maxLon 
put  (pi  4)  into  minLon 
put  (pi  12)  into  maxLat 
pul  -(pi/3)  into  minLai 

put  -22  5*(pi/180)  into  cLat 
put  -  I5*(pi/ 180)  into  cLon 

-  Calc  scale  parameters 
put  255  5  into  aLon 
put  393  (pi/3)  into  bLon 
put  134  5  into  aLat 

put  -231  (5*pi  1 2)  into  bl^t 

Lat  Ixjn  Limits  and  Scale  Parameters  of  Card  Button  "Europe"  of  Card  "Ground  Trace" 
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--  Set  Lat'Lon  limits 
put  (pi  4)  into  maxLon 
put  (pi  12)  into  minLon 
put  (5*pi  12)  into  ma;d^t 
put  (pi  6)  into  minLat 
put  52.5*(pi  180)  into  cLat 
put  15*(pi  180)  into  cLon 
--  Calc  scale  parameters 
put  255  into  aLon 
put  320  (pi  3)  into  bLon 
put  152  into  aLat 
put  -266.  (pi '4)  into  bLat 

Lat  Lon  Limits  and  Scale  Parameters  of  Card  Button  "Africa"  of  Card  "Ground  Trace" 


-  Set  Lat  Lon  limits 
put  (pi  3)  into  masLon 
put  (pi/ 12)  into  minLon 
put  (pi  4)  into  maxLat 
put  (pi  4)  into  mini  at 
put  0*(pi  180)  into  cLat 
put  22.5*(pi  180)  into  cLon 

-  Calc  scale  parameters 
put  255  5  into  aLou 

put  283  (5*pi/T2)  into  bLon 
put  160.5  into  aLat 
put  -283  (pi/2)  into  bLat 


Lat  Lon  Limits  and  Scale  Parameten  of  Card  Button  "Middle  East"  of  Card  "Ground  Trace" 


--  Set  Lat  Lon  limits 
put  (pi'3)  into  ma}tLon 
put  (pi  6)  into  minLon 
put  (pi '4)  into  maxLat 
put  0  into  minLat 
put  22.5*(pi/180)  into  cLat 
put  45*(pi/ 180)  into  cLoo 
-  Calc  scale  parameters 
put  255.5  into  aLon 
put  267/ (pi/6)  into  bLon 
put  168  into  aLat 
put  -298/ (pi/4)  into  bLat 


Lat  Lon  Limits  and  Scale  Parameten  of  Card  Button  "Asia"  of  Card  "Ground  Trace" 


-  Set  LatLon  limits 
put  (pi)  into  maxLoo 
put  (pi/4)  into  minLon 
put  (5*pi/ 12)  into  maxLat 
put  0  into  minLat 
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put  37  5*(pi<  180)  into  cLat 

put  1 12  5*(pi' 180)  into  cLon 

--  Calc  scale  piarameters 

put  255  into  aLon 

put  416.  (3 ‘pi  4)  into  bLon 

put  134  5  into  aLat 

put  -231  (5*pi  12)  into  bLat 


Lai  Lon  Limits  and  Scale  Parameters  of  Card  Button  "Indian  Ocean"  of  Card  "Ground  Trace" 

♦ 

--  Set  LalLon  limits 
put  (2*pi  3)  into  maxLon 
put  (pi  4)  into  minLon 
put  (pi  6)  into  maxLat 
put  (pi  4)  into  mini  at 
put  -7  5*(pi<  180)  into  cLat 
put  82.5*(pi/ 180)  into  cLon 
--  Calc  scale  parameters 
put  255  5  into  aLon 
put  317  (5*pi/12)  into  bLon 
put  151  into  aLat 
put  -264.  (5*pi'  12)  into  bLat 

Lat  Lon  Limits  and  Scale  Parameters  of  Card  Button  "SE  Asia  &  Australia"  of  C!ard  "Ground  Trace" 


--  Set  LalLon  limits 
put  ( 1 1  *pi/ 1 2)  into  maxLon 
put  (pi  2)  into  minLon 
put  (pi  6)  into  maxLat 
put  (pi  4)  into  minLat 
put  -7  5*(pi  180)  into  cLat 
put  127  5*(pi/ 180)  into  cLon 
-  Calc  scale  parameters 
put  255  into  aLon 
put  298 /  (5*pi/12)  into  bLon 
put  167  5  into  aLat 
put  -297'(5*pi/12)  into  bLat 

Lat  Lon  Limits  and  Scale  Parametersof  Card  Button  "North  Pacific"  of  Card  "Ground  Trace" 


--  Set  Lat/Lon  limits 

put  -(7*pi/ 12)  into  maxLon  4 

put  (5*pi/6)  into  minLon 

put  (pi'3)  into  maxLat  I 

put  -(pi/6)  into  minLat 
put  -7.5*(pi/180)  into  cLat 
put  82.5*(pi/180)  into  cLon 
put  15*(pi/ 180)  into  cLat 
put  -157  5*(pi/180)  +  2*pi  into  cLon 
-  Calc  scale  parameters 
put  255  5  into  aLon 
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put  393  (7*pi/ 12)  into  bLon 

put  144  into  aLat 

put  -250  (pi  2)  into  bLat 


Lai  Lon  Limits  and  Scale  Parameters  of  Card  Button  "South  Pacific"  of  Card  "Ground  Trace" 


--  Set  Lai  Lon  limits 
put  ■(5*pi  12)  into  ma\Lon 
put  (5*pi  6)  into  minLon 
»  put  (pi  6)  into  ma\Lct 

put  (pi  3)  into  minLat 
put  -  15*(pi  1 80)  in;o  cLat 
put  -  142.5*(pi  180)  -t-  2*pi  into  cLon 
--  Calc  scale  parameters 
put  255  5  into  aLon 
put  397  (3*pi  4)  into  bLon 
put  145  5  into  aLat 
put  -253  (pi  2)  into  bLat 


Lai  Lon  Limits  and  Scale  Parameters  of  Card  Button  "North  Pole"  of  Card  "Ground  Trace" 

--  Set  Lai  Lon  limits 
put  pi  into  maxLon 
put  -pi  into  minLon 
put  (pi  2)  into  maxLat 
put  (pi  3)  into  minLat 
--  Calc  scale  parameters 
put  511  2  into  aLon 
put  507  (2 ’pi)  into  bLon 
put  301 '2  into  aLat 
put  -255  pi  into  bLat 


Lai  Lon  Limits  and  Scale  Parameters  of  Card  Button  "South  Pole"  of  Card  "Ground  Trace" 


-  Set  Lal'Lon  limits 
put  pi  into  maxLon 
put  -pi  into  minLon 
put  -(pi/3)  into  manLat 
put  -(pi/2)  into  mini  at 
--  Calc  scale  parameters 
put  51 1/2  into  aLon 

*  put  507/(2*pi)  into  bLon 

put  301/2  into  aLat 

)  put  -255/pi  into  bLat 


Script  of  Card  Button  "Chound  Swath"  of  Card  "Ground  Trace" 


on  mouseUp 
global  Swath,pIotAll 
lock  screen 
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if  hilite  of  me  is  true  then 
put  true  into  Swath 
show  cd  btn  "Continuous" 
show  cd  btn  "Individual" 
set  hilite  of  cd  btn  "Continuous"  to  false 
set  hilite  of  cd  btn  "Individual"  to  false 

put  "Select  'Continuous'  to  display  all  the  ground  swaths  "  && 
"select  'Individual'  to  display  one  ground  swath  per  movement " 
into  cd  fid  "Description" 
show  cd  fid  "Description" 
else 

put  false  into  swath 
hide  cd  btn  "Continuous" 
hide  cd  btn  "Individual" 
put  false  into  plotAll 
hide  cd  fid  "Description" 
end  if 

unlock  screen 
end  mouseUp 


Script  of  Card  Button  "Continuous"  of  Card  "Ground  Trace" 


on  mouseUp 
global  plolAll 
put  true  into  plotAll 
set  hilite  of  me  to  true 
set  hilite  of  cd  bm  "Individual"  to  false 
end  mouseUp 


Scnpt  of  Card  Button  "Individual"  of  Card  "Ground  Trace" 


on  mouseUp 
global  plotAll 
put  false  into  plot41l 
set  hilite  of  me  to  true 
set  hilite  of  cd  btn  "Continuous"  to  false 
end  mouseUp 
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APPENDIX  F:  MAJOR  FIELD  SCRIPTS 


Inclasion  of  ail  of  the  field  scripts  was  prohibitive.  The  first  two  scripts  listed  represent  a 
generalized  version  of  the  majonty  of  the  fields.  The  remainder  are  significant  enough  that  their  inclusion 
was  necessary  Wrlierever  [xissible,  scripts  of  similar  fields  on  a  specific  card  have  been  normalized. 


Script  of  Card  Field  "  c  Field  Name  >"  of  Card  "<  Card  Name  >" 


on  mouseEnter 
select  text  of  me 
end  mouseEnter 


on  retumInFidd 

select  text  of  cd  fid  "<  Next  Field  Name" 
end  retumInFidd 


on  closeField 
global  Error 

if  <  Error  Condition  >  then 
answer  "Invalid  entry!  Try  again." 
put  true  into  Error 
else 

put  false  into  Error 
end  if 

end  doseBdd 


Script  of  Card  Field  "Description"  of  Card  "<  Card  Name  >" 


on  mouseUp 
hide  me 
end  mouseUp 


Script  of  Card  Fidd  "Uplink  EIRP"  of  Card  "Link  Info" 


on  mouseEnter 
select  text  of  me 
end  mouseEnter 


on  retumInFidd 
select  text  of  cd  fid  "Sat  1  G/T" 
end  retumInHdd 
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on  tabloFieid 

select  text  of  cd  fid  "Sat  1  G/T" 
end  tabInField 


on  closeReld 

global  Error JEIRPl'p^XmitPwrUpPwrUp£OLRescrveUp>IumCarTiers 
global  OutputBOl’pJ^eederLossUpwXmitLineLossUp^lainiMarginUp 
global  PointingLossL'p.PointingLossSaLVfotionUp,XmitAntGain 
put  zero  into  HRPUp 
put  zero  into  XmitPwrUp 
put  zero  into  XmitAntGain 
put  zero  into  PwrUp 
put  zero  into  EOLReserveUp 
put  zero  into  NumCarhers 
put  zero  into  OutputBOUp 
put  zero  into  FeederLossUp 
put  zero  into  XmitLineLossUp 
put  zero  into  MaintMarginUp 
put  zero  into  PointingLossUp 
put  zero  into  PointingLossSatMotionUp 
if  target  is  not  a  number  then 
answer  "Invalid  Eirp!  Try  again." 
put  true  into  Error 
select  text  of  me 
else  if  abs(target)  >  500  then 
answer  "Invalid  Eirp!  Try  again  " 
put  true  into  Error 
select  text  of  me 
else 

put  false  into  Error 
end  if 

end  closeReld 


Script  of  Card  Reid  "Downlink  G/T"  of  Card  "Link  Info" 


on  mouseEnter 
select  text  of  me 
end  mouseEnter 


on  retumloRdd  4 

select  text  of  od  fld  "Uplink  EIRP" 

end  retumInRdd  1 


on  closeReld 

global  RcvrNoiseTonpJRcvrAntGainPointingLossXaintMargin.GTDown 
global  Error 

put  zero  into  RcvrNoiseTemp 
put  zero  into  RcvrAntGain 
put  zero  into  PointingLossDown 
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put  zero  into  MaintMarginDown 
put  zero  into  GTDown 
if  target  is  not  a  number  then 
answer  "Invalid  G/T!  Try  again" 
put  true  into  Error 
select  test  of  me 
else 

put  false  into  Error 
end  if 

end  closeReld 


Script  of  Card  Field  "Sat  1  ORP*  of  Card  "Link  Info" 


on  mouseEnter 
select  text  of  me 
end  mouseEnter 


on  retumInFieid 

select  text  of  cd  fid  "Downlink  G/T" 
end  retumlnHeld 


on  closeReld 

global  Error iIRPDownJ'CmitPwrDown£OLReserveDown,OutputBODown 
global  FeederLossDown.SatOffCenterLossPointingErrorLoss 
global  PwrDown.SatXmiLAntGain 
put  zero  into  EIRPDown 
put  zero  into  XimtPwrDown 
put  zero  into  EOLReserveDown 
put  zero  into  OutpulBODown 
put  zero  into  FeederLossDown 
put  zero  into  SalOffCenterLoss 
put  zero  into  PointingErrorLoss 
put  zero  into  PwrDown 
put  zero  into  SaiXmitAntGain 
if  target  is  not  a  number  or  absftarget)  >  500  then 
answer  "Invalid  Eirp!  Try  again." 
put  true  into  Error 
select  text  of  me 
else 

put  false  into  Error 
end  if 

end  closeReld 


Script  of  Card  Reid  "Sat  1  G/T"  of  Card  "Link  Info" 


on  mouseEnter 
select  text  of  me 
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end  mouseEnter 


on  returnlnFidd 

select  text  of  cd  fid  "Sat  1  EIRP" 
end  retumlnField 


on  closeField 

global  SatRcvrNoiseTemp.SatRcvrAntGain.SatOffCenierLoss 
global  PoinUngEjTorLoss,GTL'p£iTor 
put  zero  into  SatRcvrNoiseTemp 
put  zero  into  SatRcvrAntGain 
put  zero  into  SatOffCenterLoss 
put  zero  into  PointingErrorLoss 
put  zero  into  GTl'p 
if  target  is  not  a  number  then 
answer  "Invalid  G  T!  Tr\  again  " 
nut  true  into  Error 
c.>e 

put  false  into  Error 
end  if 

end  closeField 


Script  of  Card  Field  "Xmit  Power"  of  Card  "EIRP  Parameters" 


on  mouseEnter 
select  text  of  roe 
end  mouseEnter 


on  returnlnField 
select  text  of  cd  fid  ".Xnt  Gain" 
end  returnlnField 


on  closeField 
global  Error^XroilType 

global  EIRPUpAmilPwrL'pPwrUp£OLRcserveL'p>iumCarhcrs 
global  OutputBOUpFeederLxwsUpJSLmitLineLossUp.VIaintMargin 
global  PointiagLossPointingLossSaLVIotionL'p 
global  EIRPDownJ'CniitPwrDown£OLReserveDown,OutputBODown 
global  FeederLo8sDown.SatOffCenterLossJ*ointingErrorLoss 
global  PwrDown.SatXmiiAntGain 
if  XmitType  is  Satellite  then 
put  zero  into  XmitPwrDown 
put  zero  into  EOLReserveDown 
put  zero  into  ChitputBOE)own 
put  zero  into  FeederLossDown 
put  zero  into  SatOffCenterLoss 
put  zero  into  PointingErrorLoss 
put  zero  into  PwrDown 
else 
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put  zero  into  XmilPwrUp 
put  zero  into  PwrUp 
put  zero  into  EOLReserveUp 
put  zero  into  NumCamers 
put  zero  into  OutputBOL'p 
put  zero  into  FeederLossUp 
put  zero  into  XmilLineLossUp 
put  zero  into  MainLVlarginL'p 
put  zero  into  PointingLxissL  p 
put  zero  into  PointingLossSatVlotionUp 
end  if 

if  target  is  not  a  number  then 
answer  "Invalid  entry'  Try  again." 
put  UTie  into  Error 
else 

put  false  into  Error 
end  if 

end  closeFidd 


Script  of  Card  Field  "Sys  Noise  Temp"  of  Card  "G  T  Parameters" 


on  mouseEnter 
select  test  of  me 
end  mouseEnter 


on  retumlnFidd 
select  test  of  cd  fid  ".Ant  Gain" 
end  retumlnFidd 


on  closeReld 

global  SatRcvrNoiseTemp.SatRcvr.AntGain.SatOffCenterLoss 
global  PointingEnorLoss,GTL'pRcvrT>pe£rror 

global  Rev rNoi seT emp Rc vr AntGai n Roi ntingLoss A^laintMargin.GTDown 
if  target  is  not  a  number  or  target  <  0  then 
answer  "Invalid  entry'  Try  again." 
put  true  into  Error 
else 

put  false  into  Error 
if  RevrType  is  "Ground"  then 
put  zero  into  PomhngLossDown 
put  zero  into  MaintMarginEiown 
else 

put  zero  into  SatOffCenterLoss 
put  zero  into  PointingErrorLoss 
end  if 

if  target  is  not  a  number  then 
end  if 
end  if 

end  doscFidd 
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